OK...her kommer de så
Databasen skal placeres således ../database/BilledeDB.mdb
Tabelnavne og feltnavne fremgår af de forskellige scripts.....jeg kan maile databasen til dig.
Der skal være en mappe i mappen med scriptfiler der hedder Billeder
*****************************************************
følgende gemmes som fileupload.txt
*****************************************************
<%
\'-------------------- Start: fileupload.inc --------------------
\'*** FileUpload ***
\'*** af Lars Snyder (pila@mailme.dk) ***
\'***
http://www.tipsogtricks-online.dk ***
\'*
\'* Sprog: VBScript
\'*
\'* Input:
\'* strPath Streng med uploadpath, f.eks. \"output/\", \"/asp/binary/upload/\" eller \"\"
\'* intMaxSize Tilladte grænse for filerne filer der uploades. Hvis < 1 er der ingen grænse.
\'* arrAcceptType Array med accepterede Content-Type, f.eks. \"image/gif\", \"image/jpeg\". Hvis (\"\") er alle filtyper accepterede.
\'* arrAcceptExt Array med sidste dele af filnavne, f.eks. \"gif\", \"jpg\" eller \"kundennefil.xls\". Hvis (\"\") er alle ext accepterede.
\'*
\'* Output: 0 hvis filen er uploaded korrekt.
\'* 1 Request fra bruger gik galt
\'* 2 Content med name=\"fileupload\" blev ikke fundet
\'* 3 Ingen filnavn
\'* 4 Content-Type accepteres ikke
\'* 5 Ext accepteres ikke
\'* 6 Filen er for stor
\'* 7 Filen blev ikke uploaded korrekt
\'* strContentType Den fundne type, f.eks. \"image/gif\"
\'* strFilename Det fundne filnavn, f.eks. \"button.gif\"
\'* intFileTotalBytes Filens samlede størrelse, f.eks. 9853
\'*
\'* Eksempler på ContentTypes
\'* Microsoft IE4 | Netscape NN4 | Beskrivelse
\'* \"image/gif\" | \"image/gif\" | CompuServe Graphics Interchange (.gif)
\'* \"image/pjpeg\" | \"image/jpeg\" | JPEG/JFIF Compliant (.jpg | .jif | .jpeg)
\'* \"application/octet-stream\" | \"application/msexcel\" | Microsoft Excel-regneark (.xls)
\'* \"application/octet-stream\" | \"application/msword\" | Microsoft Word-dokument (.doc)
\'* \"text/html\" | \"text/html\" | HTML Document (.htm | .html)
\'* \"text/plain\" | \"application/x-unknown-content-type-asp_auto_file\" | Active Server Page (.asp)
\'* \"text/plain\" | \"text/plain\" | Tekstdokument (.txt)
\'* \"text/plain\" | \"application/x-unknown-content-type-Excel.CSV\" | Separeret fil (.csv)
\'* \"application/octet-stream\" | \"application/octet-stream\" | Binær fil (.bin)
\'* \"application/octet-stream\" | \"application/octet-stream\" | Uden kendt filtype (.lol)
\'* Bemærk i øvrigt, at
\'* a. Der er desværre forskel på den tekst Microsoft og Netscape anvender på samme filtype.
\'* b. Microsoft evaulerer ikke kun filens efternavn, men også det faktiske indhold!
Function FileUpload(strPath, intMaxSize, arrAcceptType, arrAcceptExt, ByRef strContentType, ByRef strFilename, ByRef intFileTotalBytes)
\'Variable deklaration
Dim intPostTotalBytes, intStartPos, intEndPos, i
Dim bstrPostData, bstrDivider
Dim strTemp, strFileSpec
Dim arrSplit
Dim vbCrLfB
Dim bolStopLoop, bolContentTypeOK, bolExtOK
Dim fs, ts, f
\'Sæt returværdier
strContentType = \"\"
strFilename = \"\"
intFileTotalBytes = 0
\'Check: Er det faktisk POST upload?
If Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" Then
\'Dan vbCrLf som binær streng
vbCrLfB = ChrB(13) & ChrB(10)
\'Hent den binære POST fra brugeren
intPostTotalBytes = Request.TotalBytes \'Find antallet af bytes i POST
bstrPostData = Request.BinaryRead(intPostTotalBytes) \'Hent POST til en binær streng
If LenB(bstrPostData) <> intPostTotalBytes Then \'Check: Er antallet af bytes i POST forskelligt fra den binære streng?
\'Returner værdi og stop
FileUpload = 1
Exit Function
End If
\'Hent delelinien inkl. vbCrLfB (altid hele første linje)
bstrDivider = LeftB(bstrPostData, InStrB(bstrPostData, vbCrLfB) + 1)
\'Default StartPos
intStartPos = 1
\'Find Content-Disposition hvor name=\"fileupload\"
bolStopLoop = False
Do
\'Find starten af denne Content del (umiddelbart efter delelinien)
intStartPos = InStrB(intStartPos, bstrPostData, bstrDivider) + LenB(bstrDivider)
If intStartPos = 0 Then
\'Ikke flere Content delere - Returner værdi og stop
FileUpload = 2
Exit Function
End If
\'Find slutningen af denne Content del (umiddelbart inden den næste delelinie)
intEndPos = InStrB(intStartPos, bstrPostData, bstrDivider)
If intEndPos = 0 Then
\'Ikke flere Content delere - Returner værdi og stop
FileUpload = 2
Exit Function
End If
\'Hent denne Content-Disposition (uden vbCrLf)
strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))
\'Er fileupload feltet i denne Content-Disposition?
If InStr(LCase(strTemp), \"name=\"\"fileupload\"\"\") > 0 Then
\'Stop løkken her
bolStopLoop = True
Else
\'Start igen umiddelbart efter denne Content, men før næste divider
intStartPos = intEndPos
End If
Loop Until bolStopLoop
\'Flyt intStartPos til efter Content-Disposition linjen
intStartPos = intStartPos + Len(strTemp) + 2
\'Ekstrakt POST filnavnet fra strTemp
arrSplit = Split(strTemp, \";\") \'Opdel strTemp ved ;: Content-Disposition: form-data; name=\"fileupload\"; filename=\"filen.txt\"
\'Find filnavnet fra filename= array
strTemp = \"\" \'Værdi ved fejl
For i = 0 To UBound(arrSplit) \'Køres for alle i denne array
If LCase(Left(Trim(arrSplit(i)), 9)) = \"filename=\" Then \'Står der filename= ?
strTemp = Trim(arrSplit(i))
Exit For
End If
Next
\'Afbryd hvis der ikke blev fundet noget filnavn
If strTemp = \"\" Or strTemp = \"filename=\"\"\"\"\" Then
FileUpload = 3
Exit Function
End If
\'Find filnavnet
arrSplit = Split(strTemp, \"\"\"\") \'Opdel streng ved \"
strTemp = arrSplit(UBound(arrSplit) - 1) \'Næstsidste indholder filnavn
arrSplit = Split(strTemp, \"\\\") \'Del ved alle \\ Så indeholder den sidste filnavn.ext\"
strFilename = arrSplit(UBound(arrSplit)) \'Hent den sidste array, der må være filnavnet
\'Dan det fulde outputfilnavn via MapPath
strFileSpec = Server.MapPath(LCase(strPath & strFilename)) \'LCase kan evt fjernes herfra
\'Hent Content-Type (uden vbCrLf)
strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))
\'Flyt intStartPos til efter Content-Type linjen
intStartPos = intStartPos + Len(strTemp) + 2
\'Ekstrakt POST Content-Type
arrSplit = Split(strTemp, \" \")
strContentType = arrSplit(UBound(arrSplit))
\'Skal Content-Type checkes?
bolContentTypeOK = False
If arrAcceptType(LBound(arrAcceptType)) <> \"\" Then
For Each strTemp In arrAcceptType
If strContentType = strTemp Then
bolContentTypeOK = True
End If
Next
\'Check: Er det en accepteret Content-Type?
If Not bolContentTypeOK Then
\'ContentType ikke fundet - Returner værdi og stop
FileUpload = 4
Exit Function
End If
End If
\'Skal ekstention checkes?
bolExtOK = False
If arrAcceptExt(LBound(arrAcceptExt)) <> \"\" Then
For Each strTemp In arrAcceptExt
If LCase(Right(strFilename, Len(strTemp))) = strTemp Then
bolExtOK = True
End If
Next
\'Check: Er det en accepteret ekstention?
If Not bolExtOK Then
\'Ekstention ikke fundet - Returner værdi og stop
FileUpload = 5
Exit Function
End If
End If
\'Find faktiske start/slut på datafilen ved at fjerne foranstillede og efterstillede vbCrLfB
intStartPos = intStartPos + 2
intEndPos = intEndPos - 2
intFileTotalBytes = intEndPos - intStartPos
\'Skal filstørrelsen checkes?
If intMaxSize > 0 Then
\'Check: Er filen for stor?
If intFileTotalBytes > intMaxSize Then
\'Filen er for stor - Returner værdi og stop
FileUpload = 6
Exit Function
End If
End If
\'Åbn, skriv og luk outputfilen
Set fs = CreateObject(\"Scripting.FileSystemObject\") \'Filsystem objekt
Set ts = fs.CreateTextFile(strFileSpec, True) \'Åbn outputfil, overskriv evt. eksisterende
For i = intStartPos To intEndPos - 1
ts.Write(Chr(AscB(MidB(bstrPostData, i, 1)))) \'Skriv data eet tegn af gangen
Next
ts.Close \'Luk outputfil
\'Check: Blev filen oprettet og har den samme størrelse?
Set f = fs.GetFile(strFileSpec)
If f.Size <> intFileTotalBytes Then
FileUpload = 7
Exit Function
End If
\'* Returner OK
FileUpload = 0
End If
End Function
\'* Funktion der oversætter en bstr binær streng til en almindelig streng
\'* Pas på med 00 værdier, da de fungerer som EOF i en almindelig streng
Function bin2str(bstrBinary)
Dim i
For i = 1 To LenB(bstrBinary)
bin2str = bin2str & Chr(AscB(MidB(bstrBinary, i, 1)))
Next
End Function
\'-------------------- Slut: fileupload.inc --------------------
%>
*****************************************************
Følgende gemmes som upload_add.asp
*****************************************************
<%@ Language=\"VBScript\" %><% Option Explicit %><!-- #INCLUDE FILE=\"fileupload.txt\" -->
<html>
<head>
<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
<title>Upload</title>
</head>
<body leftmargin=\"33\" topmargin=\"53\" bgcolor=\"white\" background=\"../topgrafik/shadow.gif\">
<%
\'*************************************
\'**** Test af FileUpload funktion ****
\'**** ****
\'**** Upload .gif eller .jpg ****
\'**** billede til mappen /upload ****
\'*************************************
\'Skal formen vises?
If Request.ServerVariables(\"REQUEST_METHOD\") <> \"POST\" Then
%>
<table>
<tr height=\"50\">
<td width=\"725\" height=\"50\">
<table width=\"725\">
<tr>
<td width=\"725\" align=\"left\" valign=\"bottom\"><font face=\"Verdana,arial\" size=\"3\"><b>Referencer</b> - Billededatabase</font>
<br><br>
<font face=\"arial\" size=\"2\">
Step 1 - upload af nyt billede til eksisterende reference.
<form enctype=\"multipart/form-data\" action=\"UPLOAD_add.ASP\" method=\"POST\">
<p>
<table cellpadding=\"15\" cellspacing=\"2\" >
<tr height=\"35\">
<td width=\"270\" height=\"35\" bgcolor=\"#F5F5F5\"><font face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\" size=\"2\">Vælg billede på din egen PC ved \"Gennemse\", klik der efter på \"Upload\" og følg de videre anvisninger.<br><br>
Billedet bør være optimeret til en max bredde på 500 pixel, og en filstørrelse på mellem 15 og 40 Kb.
</font><br><br>
<input name=\"fileupload\" type=\"file\" size=\"16\"></td>
</tr>
<tr height=\"50\">
<td width=\"270\" height=\"50\" bgcolor=\"#F5F5F5\">
<input name=\"Action\" type=\"submit\" value=\"Upload\"></td>
</tr>
</table>
</td> </tr>
</table>
<br><br>
</form>
<%
Else
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes, strDSN, myConn, SQL, rstemp
intFileUpload = FileUpload(\"billeder/\",200000, Array(\"\"), Array(\"\"), strContentType, strFilename, intFileTotalBytes)
%>
<table>
<tr height=\"50\">
<td width=\"725\" height=\"50\">
<table width=\"725\">
<tr>
<td width=\"725\" align=\"left\" valign=\"bottom\"><font face=\"Verdana,arial\" size=\"3\"><b>Referencer</b> - Billededatabase</font>
<br><br>
<font face=\"arial\" size=\"2\">
Step 2 - upload af billede - status for gennemførelse.
<br>
<br>
<table cellpadding=\"15\" cellspacing=\"2\">
<tr>
<td bgcolor=\"#F5F5F5\">
<form action=\"upload_ref_add.asp\" method=\"Post\">
</font><%
If intFileUpload = 0 Then
Response.Write \"<font face=Arial size=\"\"2\"\">\"
Response.Write \"Upload af fil er gennemført med succes<br>\"
\'Response.Write \"Filstørrelse \" & intFileTotalBytes & \" bytes:<BR><BR>\"
Response.Write \"<input type=\"\"hidden\"\"name=\"\"Billede\"\" value=\"\"\" & strFilename & \"\"\">\"
\' Response.Write \"Det er en fil af typen \" & strContentType & \" og den fylder \" & intFileTotalBytes & \" bytes:<BR><BR><BR>\"
Response.Write \"</font>\"%>
<!--#include file=\"BilledeDB_functions.inc\"-->
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
\' Viser Navn i en combobox med Mail som value
\'set conntemp=server.createobject(\"adodb.connection\")
\'conntemp.open DSN
SQL=\"select Produkt,ProdID from TProdukt\"
Set rstemp = myConn.Execute(SQL)
if rstemp.eof then
response.write \"no data for<br>\"
response.write SQL
conntemp.close
set conntemp=nothing
response.end
end if
%><br>
</td></tr><tr>
<td bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Opret under produktgruppe:</font><br><br>
<select name=\"Produktgruppe\" size=\"1\">
<option value=\"<%response.write(Session(\"SProdukt\")) %>\"><%response.write(Session(\"SProdukt\")) %>
<%
\' Data sættes ind i selectbox
do until rstemp.eof %>
<option value=\"<%=rstemp(0)%>\"><%=rstemp(0)%><%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
myConn.close
set myConn=nothing
%>
</select>
</td></tr><tr>
<td bgcolor=\"#f5f5f5\">
<input type=\"submit\" name=\"next\" value=\"Næste\">
</form>
<% Else
Response.Write \"Der opstod en fejl under upload!<BR>\"
Response.Write \"Fejl nr: \" & intFileUpload & \"<BR>\"
Response.Write \"Filnavn: \" & strFilename & \"<BR>\"
Response.Write \"Filtype: \" & strContentType & \"<BR>\"
Response.Write \"Filstørrelse: \" & intFileTotalBytes & \"<BR>\"
End If
End If
%></font></td>
</tr>
</table>
</body>
</html>
*****************************************************
Følgende gemmes som upload_ref_add.asp
*****************************************************
<html>
<head>
<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
</head>
<body leftmargin=\"33\" topmargin=\"53\" bgcolor=\"white\" background=\"../topgrafik/shadow.gif\">
<form name=\"OpretKategori\" action=\"ref_skriv_done.asp\" method=\"post\">
<!--#include file=\"BilledeDB_functions.inc\"-->
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
SQL=\"select Kategori, Produkt from TKategori WHERE Produkt = \'\" & Request(\"Produktgruppe\") & \"\'\"
Set rstemp = myConn.Execute(SQL)
if rstemp.eof then
response.write \"no data for<br>\"
response.write SQL
conntemp.close
set conntemp=nothing
response.end
end if
%>
<table>
<tr height=\"50\">
<td width=\"725\" height=\"50\">
<table width=\"725\">
<tr>
<td width=\"725\" align=\"left\" valign=\"bottom\"><font face=\"Verdana,arial\" size=\"3\"><b>Referencer</b> - Billededatabase</font>
<br><br>
<font face=\"arial\" size=\"2\">
Step 3 - opret beskrivelse.<br><br>
<table border=\"0\" cellpadding=\"5\" cellspacing=\"2\">
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Opret under kategori:</font></td>
<td bgcolor=\"#f5f5f5\"><select name=\"Kategori\" size=\"1\">
<%
\' Data sættes ind i selectbox
do until rstemp.eof %>
<option value=\"<%=rstemp(0)%>\"><%=rstemp(0)%><%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
\'myConn.close
\'set myConn=nothing
%>
</select></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Navn:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Navn\" size=\"24\" value=\"<%response.write(Session(\"SNavn\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Adresse:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Adresse\" size=\"24\" value=\"<%response.write(Session(\"SAdresse\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Postnr:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Postnr\" size=\"24\" value=\"<%response.write(Session(\"SPostnr\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">By:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Town\" size=\"24\" value=\"<%response.write(Session(\"STown\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Telefon:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Telefon\" size=\"24\" value=\"<%response.write(Session(\"STelefon\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Fax:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Fax\" size=\"24\" value=\"<%response.write(Session(\"SFax\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Mail:</font></td>
<td bgcolor=\"#f5f5f5\"><input type=\"text\" name=\"Mail\" size=\"24\" value=\"<%response.write(Session(\"SMail\")) %>\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Orientering:</font></td>
<td bgcolor=\"#f5f5f5\"><%
SQL=\"select Orientering from TOrientering\"
Set rstemp = myConn.Execute(SQL)
if rstemp.eof then
response.write \"no data for<br>\"
response.write SQL
conntemp.close
set conntemp=nothing
response.end
end if
%><select name=\"Orientering\" size=\"1\">
<%
\' Data sættes ind i selectbox
do until rstemp.eof %>
<option value=\"<%=rstemp(0)%>\"><%=rstemp(0)%><%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
myConn.close
set myConn=nothing
%>
</select>
<%
response.write(\"<input type=\"\"hidden\"\" name=\"\"Billede\"\" value=\"\"Billeder/\" & request.form(\"Billede\") & \"\"\">\")%>
<%response.write(\"<input type=\"\"hidden\"\" name=\"\"Produkt\"\" value=\"\"\" & request.form(\"Produktgruppe\") & \"\"\">\")%>
</td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\" valign=\"top\"><font size=\"2\" face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\">Reference:</font></td>
<td bgcolor=\"#f5f5f5\"><textarea name=\"Reference\" cols=\"30\" rows=\"4\"></textarea></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"></td>
<td bgcolor=\"#f5f5f5\"><input type=\"submit\" value=\"Opret\" name=\"OpretKategori\"></td>
</tr>
<tr>
<td width=\"150\" bgcolor=\"#f5f5f5\"></td>
<td bgcolor=\"#f5f5f5\"></td>
</tr>
</table>
<br>
</form>
</td></tr></table>
</body>
</html>
***************************************************** Følgende gemmes som ref_skriv_done.asp
*****************************************************
<html>
<head>
<style type=\"text/css\"><!--
a { color: #0066cc }-->
</style>
</head>
<%
Session(\"SKategori\") = Request.form(\"Kategori\")
Session(\"SNavn\") = Request.form(\"Navn\")
Session(\"SAdresse\") = Request.form(\"Adresse\")
Session(\"SPostnr\") = Request.form(\"Postnr\")
Session(\"STown\") = Request.form(\"Town\")
Session(\"STelefon\") = Request.form(\"Telefon\")
Session(\"SFax\") = Request.form(\"Fax\")
Session(\"SMail\") = Request.form(\"Mail\")
Session(\"SOrientering\") = Request.form(\"Orientering\")
Session(\"SBillede\") = Request.form(\"Billede\")
Session(\"SProdukt\") = Request.form(\"Produkt\")
Session(\"SReference\") = Request.form(\"Reference\")
%>
<body leftmargin=\"33\" topmargin=\"53\" bgcolor=\"white\" background=\"../topgrafik/shadow.gif\">
<table>
<tr height=\"50\">
<td width=\"725\" height=\"50\">
<table width=\"725\">
<tr>
<td width=\"725\" align=\"left\" valign=\"bottom\"><font face=\"Verdana,arial\" size=\"3\"><b>Referencer</b> - Billededatabase</font>
<br><br>
<font face=\"arial\" size=\"2\">
Step 4 - opret reference.<br><br>
<!--#include file=\"BilledeDB_functions.inc\"-->
<% if request.form(\"Adresse\") = \"\" then %>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr height=\"35\">
<td height=\"35\"><font face=\"arial\" size=\"2\">
Du har ikke skrevet nogen adresse<br>
<br>
<img src=\"../images/help_type2.gif\"> <a href=\"#\" onclick=\"java script:history.go(-1)\">Tilbage igen</a> </font></td>
</tr>
</table>
<% elseif request.form(\"Postnr\") = \"\" then %>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr height=\"35\">
<td height=\"35\"><font face=\"arial\" size=\"2\">
Du har ikke skrevet noget postnr.<br>
<br>
<img src=\"../images/help_type2.gif\"> <a href=\"#\" onclick=\"java script:history.go(-1)\">Tilbage igen</a> </font></td>
</tr>
</table>
<% elseif request.form(\"Town\") = \"\" then %>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr height=\"35\">
<td height=\"35\"><font face=\"arial\" size=\"2\">
Du har ikke skrevet nogen by<br>
<br>
<img src=\"../images/help_type2.gif\"> <a href=\"#\" onclick=\"java script:history.go(-1)\">Tilbage igen</a> </font></td>
</tr>
</table>
<% else %><%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Navn = Replace(Request.form(\"Navn\"), \"\'\", \"\'\'\")
Adresse = Replace(Request.form(\"Adresse\"), \"\'\", \"\'\'\")
Postnr = Replace(Request.form(\"Postnr\"), \"\'\", \"\'\'\")
Town = Replace(Request.form(\"Town\"), \"\'\", \"\'\'\")
Telefon = Replace(Request.form(\"Telefon\"), \"\'\", \"\'\'\")
Fax = Replace(Request.form(\"Fax\"), \"\'\", \"\'\'\")
Mail = Replace(Request.form(\"Mail\"), \"\'\", \"\'\'\")
Orientering = Replace(Request.form(\"Orientering\"), \"\'\", \"\'\'\")
Billede = Replace(Request.form(\"Billede\"), \"\'\", \"\'\'\")
Produkt = Replace(Request.form(\"Produkt\"), \"\'\", \"\'\'\")
Reference = Replace(Request.form(\"Reference\"), \"\'\", \"\'\'\")
SubProdukt = Replace(Request.form(\"Kategori\"), \"\'\", \"\'\'\")
StrSQL = \"INSERT INTO Referencer (SubProdukt, Navn, Adresse, Postnr, Town, Telefon, Fax, Mail, Orientering, Billede, Produkt, Reference) \"
strSQL = strSQL & \"VALUES (\'\" & SubProdukt & \"\',\'\" & Navn & \"\',\'\" & Adresse & \"\',\'\" & Postnr & \"\',\'\" & Town & \"\',\'\" & Telefon & \"\',\'\" & Fax & \"\',\'\" & Mail & \"\',\'\" & Orientering & \"\',\'\" & Billede & \"\',\'\" & Produkt & \"\',\'\" & Reference & \"\') \"
Set rs = myConn.Execute(strSQL) %>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr height=\"35\">
<td height=\"35\"><font face=\"Arial,Helvetica,Geneva,Swiss,SunSans-Regular\" size=\"2\">
<%response.write(\"Din reference er oprettet\")%><br><br><br>
<img src=\"../images/pict_type.gif\"> <a href=\"upload_add.asp\">Tilføj nyt billede til samme reference</a><br><br>
<img src=\"../images/write_type.gif\"> <a href=\"upload.asp\">Opret ny reference</a><br><br></font></td>
</tr>
</table>
<% myConn.Close
Set myConn = Nothing
end if
%>
</td></tr></table>
</body>
</html>
***************************************************** Følgende gemmes som BilledeDB_functions.inc
*****************************************************
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../database/BilledeDB.mdb\")
Function DBFix(tempString)
tempString = Replace(Trim(tempString), \"\'\", \"\'\'\")
tempString = Replace(tempString, \"|\", \"\")
DBFix = tempString
End Function
%>
