Avatar billede agg-zeus Nybegynder
30. januar 2002 - 10:49 Der er 1 kommentar og
1 løsning

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
Avatar billede coltau Juniormester
30. januar 2002 - 10:59 #1
der skal # omkring datofelter for Access.

sql = "insert into img (datotilfoejet, imgsrc, kommentar) values(#" & request.form("dato") & "#,'" & request.form("filnavn") & "','" & request.form("kommentar") & "')"

og så må felter ikke være blanke.
Avatar billede agg-zeus Nybegynder
20. februar 2002 - 19:26 #2
Har selv fundet løsning...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester