Jeg har installeret ASPSimpleUpload for at få upload til at virke, her er koden på side:
<!-- #include file="include/top.asp" -->
<!-- #include file="include/database.asp" -->
<html>
<head>
<title>Leksikon</title>
<link rel="STYLESHEET" type="text/css" href="css/fisk.css">
</head>
<body topmargin="10">
<form action="tilfoej_fisk.asp?save=yes" enctype="multipart/form-data" method="post">
<table cellspacing="0" cellpadding="2" border="0"><tr>
<td valign="top" bgcolor="#E0DFE3" height="30"><b>
Fiskenavn:<br>
(DANSK) </b></td>
<td bgcolor="#E0DFE3" height="30"><input type="text" name="Fiskenavn_DK" size="50" maxlength="50"></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="30">
<b>
Fiskenavn:<br>
(TYSK)</b></td>
<td bgcolor="#EFEFEF" height="30"><input type="text" name="Fiskenavn_DE" size="50" maxlength="50"></tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="30">
<b>
Fiskenavn:<br>
(ENGELSK) </b></td>
<td bgcolor="#E0DFE3" height="30"><input type="text" name="Fiskenavn_GB" size="50" maxlength="50"></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="25">
<b>
Fiskens latinnavn: </b></td>
<td bgcolor="#EFEFEF" height="25"><input type="text" name="Fisklatinnavn" size="50" maxlength="50"></tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="19">
<b>
Navngiver:</b></td>
<td bgcolor="#E0DFE3" height="19"><input type="text" name="Navngiver" size="50" maxlength="50"></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="30">
<b>År for navngivningen fandt sted:</b></td>
<td bgcolor="#EFEFEF" height="30"><input type="text" name="Aar" size="12">
(f.eks. 1955)</tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="119">
<b>
Kendetegn:<br>
(DANSK)</b></td>
<td bgcolor="#E0DFE3" height="119"><textarea cols="90" rows="5" name="Kendetegn_DK"></textarea></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="119">
<b>
Kendetegn:<br>
(TYSK)</b></td>
<td bgcolor="#EFEFEF" height="119"><textarea cols="90" rows="5" name="Kendetegn_DE"></textarea></tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="119">
<b>
Kendetegn:<br>
(ENGELSK) </b></td>
<td bgcolor="#E0DFE3" height="119"><textarea cols="90" rows="5" name="Kendetegn_GB"></textarea></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="25">
<b>
Max længde for fisken:</b></td>
<td bgcolor="#EFEFEF" height="25"><input type="text" name="Maxlaengde" size="12">
cm.</tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="119">
<b>
Beskrivelse:<br>
(DANSK) </b></td>
<td bgcolor="#E0DFE3" height="119"><textarea cols="90" rows="5" name="Beskrivelse_DK"></textarea></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="119">
<b>
Beskrivelse:<br>
(TYSK) </b>
</td>
<td bgcolor="#EFEFEF" height="119"><textarea cols="90" rows="5" name="Beskrivelse_DE"></textarea></tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="119">
<b>
Beskrivelse:<br>
(ENGELSK) </b></td>
<td bgcolor="#E0DFE3" height="119"><textarea cols="90" rows="5" name="Beskrivelse_GB"></textarea></tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="26">
<b>
Art navn:</b></td>
<td bgcolor="#EFEFEF" height="26">
<select size="1" name="artnavn">
<option>-- Vælg Art --</option>
<%
strSQL = "Select Artnavn_DK "
strSQL = strSQL & "FROM art "
set ObjRS = Conn.execute(strSQL)
Do until ObjRs.EOF
%>
<option><%=ObjRS("Artnavn_DK")%></option>
<%
ObjRS.movenext
loop
%>
</select>
</tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="25">
<b>
Akvarienummer:</b></td>
<td bgcolor="#E0DFE3" height="25"><input type="text" name="Akvarienummer" size="12">
(Mellem 1 og ?)</tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="25">
<b>Upload billede af fisk: </b></td>
<td bgcolor="#EFEFEF" height="25">
<input type="file" name="billedefisk" size="45" maxlength="50">
</tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="25">
<b>Upload billede af kort: </b></td>
<td bgcolor="#E0DFE3" height="25">
<input type="file" name="Billedekort" size="45" maxlength="50">
</tr><tr>
<td valign="top" bgcolor="#EFEFEF" height="25">
<b>
Evt. upload film om fisk:</b></td>
<td bgcolor="#EFEFEF" height="25">
<input type="file" name="Film" size="45" maxlength="50">
</tr><tr>
<td valign="top" bgcolor="#E0DFE3" height="92">
<br>
<input type="image" value="Submit" border="0" src="grafik/opdater.gif" align="absmiddle" width="24" height="24"> Tilføj
</td>
<td bgcolor="#E0DFE3" height="92"> </tr></table>
</form>
<%
If Request.QueryString("save")="yes" then
Dim ObjRs, StrSQL, Conn
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("billedefisk")) > 0 Then
NewFileName = "multimedie/fisk/" & upl.ExtractFileName(upl.Form("billedefisk"))
If upl.SaveToWeb("billedefisk", NewFileName) Then
Response.Write("File successfully written to disk.")
Else
Response.Write("There was an error saving the file to disk.")
End If
End If
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set ObjRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * "
strSQL = strSQL & "FROM fisk "
ObjRS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
ObjRS.AddNew
ObjRS("Fiskenavn_DK") = Request.form("Fiskenavn_DK")
ObjRS("Fiskenavn_DE") = Request.form("Fiskenavn_DE")
ObjRS("Fiskenavn_GB") = Request.form("Fiskenavn_GB")
ObjRS("Fisklatinnavn") = Request.form("Fisklatinnavn")
ObjRS("Navngiver") = Request.form("Navngiver")
ObjRS("Aar") = Request.form("Aar")
ObjRS("Kendetegn_DK") = Request.form("Kendetegn_DK")
ObjRS("Kendetegn_DE") = Request.form("Kendetegn_DE")
ObjRS("Kendetegn_GB") = Request.form("Kendetegn_GB")
ObjRS("Maxlaengde") = Request.form("Maxlaengde")
ObjRS("Beskrivelse_DK") = Request.form("Beskrivelse_DK")
ObjRS("Beskrivelse_DE") = Request.form("Beskrivelse_DE")
ObjRS("Beskrivelse_GB") = Request.form("Beskrivelse_GB")
ObjRS("Artnavn_DK") = Request.form("Artnavn_DK")
ObjRS("Akvarienummer") = Request.form("Akvarienummer")
ObjRS("Billedefisk") = Request.form("Billedefisk")
ObjRS("Billedekort") = Request.form("Billedekort")
ObjRS("Film") = Request.form("Film")
ObjRS.Update
ObjRS.Close
Set ObjRS = Nothing
Conn.Close
set Conn = Nothing
response.redirect "index.asp"
end if
%>
</body>
