Filupload i ASP
Jeg har kæmpet lidt med følgende problem. Jeg gemmer et billede i min acces db , derefter gemmer jeg filen i en mappe. filnavnet bliver bestemt af løbenummeret i access db'en, f.eks. løbenummer 1 = fil 1.jpg. desværre får jeg fejlen "HTTP 500 - Intern serverfejl"hvad er der galt ?
___________________________________________________
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Response.Write "Text : "
PicDesc = mySmartUpload.Form("PicDesc")
ProdId = mySmartUpload.Form("ProdId")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_IG_Conn_STRING
Set rsPic = Server.CreateObject("ADODB.RecordSet")
strSql = "Select * From pic"
rsPic.Open strSql, Conn, adOpenKeyset, adLockOptimistic
rsPic.AddNew
rsPic("intRefId") = cint(ProdId)
rsPic("strPicDesc") = Cstr(PicDesc)
rsPic.update
PicPath = ""
PicPath = rsPic("intPicId")&".jpg"
PicId = rsPic("intPicId")
path = "D:\web\importguiden.dk\www\pics\" & PicPath
response.Write Path
response.Write "<br>"
myUpload.files.item("Form_file").saveas path
File.SaveAs "D:\web\importguiden.dk\www\pics\" & PicPath
rsPic.Close
Set rsPic = Nothing
