Upload af billeder til DB
Jeg har en side hvor man kan uploade et billede med en kommentar tilknyttet.Koden ser således ud :
<% If Request.Querystring("u") = "j" Then %>
<html>
<body>
<% Dim cn, cnstr, sti
sti = server.mappath("dbnu.mdb")
set cn = server.createobject("adodb.connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
cnstr = cnstr & "Data Source=" & sti & ";"
cn.connectionstring = cnstr
cn.open
Dim sql
sql = "insert into img (datotilfoejet, imgsrc, kommentar) values('" & request.form("dato") & "','" & request.form("filnavn") & "','" & request.form("kommentar") & "')"
cn.execute sql
cn.close
set cn = nothing
Dim upload, count
Set Upload = Server.CreateObject("Persits.Upload.1")
'Count = Upload.Save("d:\home\mobildiskoteknu\www\pics\")
Count = Upload.Save("c:\inetpub\wwwroot\mdisko\pics\")
Response.Write Count & " fil(er) modtaget." _
& "<a href=""uploadpics.asp""><p>Gå tilbage</p></a>"
%>
</body>
</html>
<% Else %>
<html>
<head>
<title> </title>
<link rel="stylesheet" href="css/style.css" type="text/css">
</head>
<body>
<br><br>
<table align="center" width="650" style="border: 1 solid #FFFF00" height="90%">
<tr>
<td width="150" align="center" valign="top" bgcolor="#339966">
<!--#include file="menuadmin.asp" -->
</td>
<td align="center" width="500" valign="top" bgcolor="#336666">
<table>
<tr>
<td width="500">
<h1 align="center"> Upload billeder </h1>
<br>
<p>Her kan du uploade billeder!</p>
<br>
<table>
<form method="post" enctype="multipart/form-data" action="uploadpics.asp?u=j">
<input type="hidden" name"dato" value="<%=formatdatetime(date,2)%>">
<tr><td><p>Filnavn: </p></td><td><input type="file" name="filnavn"></td></tr>
<tr><td><p>Kommentar: </p></td><td> <input type="text" name="kommentar"></td></tr>
<tr><td></td><td><input type=submit value="upload!"> </td></tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<% End If %>
Hvad har jeg gjort galt?
Jeg får følgende fejl:
Fejltype:
Microsoft JET Database Engine (0x80040E07)
Datatyperne stemmer ikke overens i kriterieudtrykket
