Problemer med filnavn
Jeg skal have filnavn på den fil jeg upload tilføjet til databasen, men den kommer ikke ind. Alt andet virker fint og filen bliver også uploaded.Hvor går det lige galt?
<%
set upload = Server.CreateObject("SoftArtisans.FileUp")
Upload.OverwriteFiles = False
On Error Resume Next
upload.Path = Server.MapPath("/images")
filename = file.FileName
if (upload.IsEmpty) then
Response.write "<p>Fejl: Filen er tom eller findes ikke!</p>"
elseif (upload.ContentDisposition <> "form-data") then
Response.write "<p>Fejl: Upload mislykkedes!</p>"
else
Response.write "<p>Filen er nu uploadet.</p>"
on error resume next
' Gem den uploadede fil på webhotellet
upload.Save
' Formaterer teksten
strKommentar = Replace(Upload.Form("kommentar"),"'","´")
strKommentar = Replace(strKommentar,vbCrLf,"<br />")
strTarget = Replace(Upload.Form("target"),"'","´")
strTarget = Replace(strTarget,vbCrLf,"<br />")
strSpil = "Spil"
strOverskrift = Replace(Upload.Form("overskrift"),"'","´")
strOverskrift = Replace(strOverskrift,vbCrLf,"<br />")
' Tilfojer til databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/dbbase.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM seneste "
rs.Open Addera, Connect, 3, 3
rs.addnew
rs("pic") = File.FileName
rs("beskrivelse") = strKommentar
rs("target") = strTarget
rs("spil") = 2
rs("spil") = strSpil
rs("visnyhed") = Upload.Form("visnyhed")
rs("moviekategori") = Upload.Form("kategori")
rs("overskrift") = strOverskrift
rs.update
rs.close
response.write("Billedet er nu tilføjet til databasen")
End if
%>