Til ASP-nørderne........

Følgende kode uploader et billede til databasen vin.mdb. Problemet er at den laver en ny record i databasen, istedet for at knytte billedet til det ID som den modtager øverst i koden.....


<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../../../scripts/vinhandel/vin.mdb\")

\' Her skabes FileUp objektet
Set objUpl = Server.CreateObject(\"SoftArtisans.FileUp\")

intID = request.querystring(\"ID\")

\' Her sættes en begrænsning på 10 kb.
If objUpl.Form(\"upload\") <> \"\" Then
    \' Hvis formen er blevet submitted
    strFilename = objUpl.Form(\"f1\").UserFilename
    strFileExt = Mid(strFilename, InstrRev(strFilename, \".\") + 1)
    If objUpl.Form(\"f1\").IsEmpty Then
        strMsg = \"<p>Du skal vælge en fil</p>\"
    ElseIf LCase(strFileExt) <> \"gif\" AND LCase(strFileExt) <> \"jpg\" Then
        strMsg = \"<p>Du skal vælge enten et GIF eller JPG fil!</p>\"
    ElseIf objUpl.TotalBytes > 10000 Then
        strMsg = \"<p>Billedet fylder mere end 10 Kb., vælg venligst et andet!</p>\"
    Else
        \' Her gemmes filen i databasen
        Set rsBlob = Server.CreateObject(\"ADODB.RecordSet\")
        rsBlob.Open \"vin\", myConn, 1, 3
        rsBlob.find \"ID=\" & request.querystring(\"ID\")
       
        rsBlob.Fields(\"Image_Data\") = objUpl.Form(\"f1\").SaveAsBlob
        rsBlob.Fields(\"Image_Type\") = objUpl.Form(\"f1\").ContentType
        rsBlob.Fields(\"Image_Name\") = Mid(strFilename, InstrRev(strFilename, \"\\\") + 1)
        rsBlob.Update
        rsBlob.Close
        Set rsBlob = Nothing       
    End If
End If

\' Her frigives FileUp objektet fra hukommelsen
Set objUpl = Nothing
%>
<html>
<head>
<title>Upload af billeder til vindatabasen
</title>
<LINK HREF=\"../style.css\" REL=\"stylesheet\" TYPE=\"text/css\">
</head>

<BODY BACKGROUND=\"http://www.falslev.dk/TEST - ERIK/Billeder/bg1.gif\">
<!-- #include file=\"header.inc\" -->
<%=strMsg%>

<form method=\"POST\" enctype=\"multipart/form-data\" action=\"newpic.asp\">
<br>
<br>
<br>
<table bgcolor=#E8E7DC border=\"1\" borderColorDark=\"#999999\" borderColorLight=\"#999999\" cellPadding=\"4\" cellSpacing=\"0\" align=center class=white WIDTH=\"500\">
<TR>
<TD>BILLEDE :</TD>
<TD><input type=\"file\" size=\"20\" name=\"f1\"></TD>
</TR>
<TR>
<TD ALIGN=\"center\" COLSPAN=\"2\"><input type=\"submit\" name=\"upload\" value=\"TILFØJ\">
</TD>
</TR>
</table>
</form>
<br>
<table bgcolor=#E8E7DC border=\"1\" borderColorDark=\"#999999\" borderColorLight=\"#999999\" cellPadding=\"9\" cellSpacing=\"0\" align=center WIDTH=\"300\">
<tr>
<td ALIGN=\"center\" width=\"500\" COLSPAN=\"2\"><a href=\"edit.asp?ID=<%=intID%>\"><span class=vinoverskrift>TILBAGE</span></A>
</tr>
</table>
</body>
</html>