File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/beheer/asp/upload/toevoegen_leraar.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/INDOORSKI_WRITER.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="/css/beheer.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!-- Dit script wordt aangeroepen door de pagina toevoegen-foto.asp-->
<%
' Open een instance voor het uploaden van de foto
Set Upload = Server.CreateObject("Persits.Upload")
' Sla de geslecteerde foto op in het geheugen.
Count = Upload.Save
If Count = 0 Then
Response.Write "<center><span class=""BEH-Style02""><hr>Er is geen foto geslecteerd probeer het <A HREF=""/asp/fotoalbum/toevoegen-foto.asp"">opnieuw</a><br><hr></span></center>"
Response.End
Else
' Obtain File object representing uploaded file
Set File = Upload.Files(1)
' Is this a valid image file?
If File.ImageType <> "UNKNOWN" Then
' create instance of AspJpeg object
Set jpeg = Server.CreateObject("Persits.Jpeg")
' open uploaded file from memory
jpeg.OpenBinary( File.Binary )
' Using ADO, save both image and thumbnail in the database along with description.
strConnect = MM_INDOORSKI_WRITER_STRING
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "TABEL_LERAREN", strConnect, 1, 3
rs.AddNew
' New width
L = 70
' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Dim varskileraar
DIM varboardleraar
If Upload.Form("skileraar") = "1" Then varskileraar = 1 else varskileraar = 0
If Upload.Form("boardleraar") = "1" Then varboardleraar = 1 else varboardleraar = 0
' Now Jpeg contains a resized version of the original file. Save it too.
rs("image").Value = Jpeg.Binary
rs("voornaam") = Upload.Form("voornaam")
rs("achternaam") = Upload.Form("achternaam")
rs("woonplaats") = Upload.Form("woonplaats")
rs("geboortedatum") = Upload.Form("geboortedatum")
rs("burgelijkestaat") = Upload.Form("burgelijkestaat")
rs("kinderen") = Upload.Form("kinderen")
rs("emailadres") = Upload.Form("emailadres")
rs("algemeneopleiding") = Upload.Form("algemeneopleiding")
rs("sneeuwopleiding") = Upload.Form("sneeuwopleiding")
rs("sneeuwervaring") = Upload.Form("sneeuwervaring")
rs("hobbys") = Upload.Form("hobbys")
rs("favgebied") = Upload.Form("favgebied")
rs("mooisteervaring") = Upload.Form("mervaring")
rs("ultimekick") = Upload.Form("ultimekick")
rs("algemeen") = Upload.Form("algemeen")
rs("eigensite") = Upload.Form("eigensite")
rs("skileraar") = varskileraar
rs("boardleraar") = varboardleraar
rs.Update
rs.Close
Set rs = Nothing
Response.Write "<center><span class=""BEH-Style02""><hr>Gelukt de geselecteerde foto is opgeslagen in de database<br><hr></span></center>"
Else
Response.Write "<center><span class=""BEH-Style02""><hr>De foto die is geslecteerd is geen geldig bestandsformaat probeer het <A HREF=""/asp/fotoalbum/toevoegen-foto.asp"">opnieuw</a><br><hr></span></center>"
Response.End
End If
End If
%>
</BODY>
</HTML>