HJÆÆÆLP.... Upload og db
Jeg sidder og forsøger at få et upload til at kører. Selve uploadet kører, men jeg får ikke lov til at skrive filnavnene i min db. Hvad er der galt?Det skal lige nævnes at det ikke er et fast antal felter der er til at vælge filer i. Det bliver lavet ud fra et tal man sætter på "forsiden".
Her er en del af koden...
<%
IF Request.Querystring ("gsup") = "upload" THEN
sql = "SELECT * FROM gs WHERE id = " & Request.Querystring("gsid")
SET rs = Conn.Execute(sql)
path = ("c:\inetpub\seestspejder\images\gs\" & rs("sti"))
Set Upload = Server.CreateObject("Persits.Upload")
' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 500000, True
' Intercept all exceptions to display user-friendly error
On Error Resume Next
' Perform upload
'Upload.Save "c:\inetpub\seestspejder\images\gs\" & Upload.Form("nr") & Upload.Form("aar") & "\"
Upload.Save path
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Your file is too large. Please try again."
Else
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
Else
Response.Write "Success!"
End If
End If
sql = "UPDATE gs SET s1 = '" & Upload.Form("s1") & "', s2 = '" & Upload.Form("s2") & "', s3 = '" & Upload.Form("s3") & "', s4 = '" & Upload.Form("s4") & "', s5 = '" & Upload.Form("s5") & "', s6 = '" & Upload.Form("s6") & "', s7 = '" & Upload.Form("s7") & "', s8 = '" & Upload.Form("s8") & "', s9 = '" & Upload.Form("s9") & "', s10 = '" & Upload.Form("s10") & "', s11 = '" & Upload.Form("s11") & "', s12 = '" & Upload.Form("s12") & "', s13 = '" & Upload.Form("s13") & "', s14 = '" & Upload.Form("s14") & "', s15 = '" & Upload.Form("s15") & "', s16 = '" & Upload.Form("s16") & "', s17 = '" & Upload.Form("s17") & "', s18 = '" & Upload.Form("s18") & "', s19 = '" & Upload.Form("s19") & "', s20 = '" & Upload.Form("s20") & "', s21 = '" & Upload.Form("s21") & "', s22 = '" & Upload.Form("s22") & "', s23 = '" & Upload.Form("s23") & "', s24 = '" & Upload.Form("s24") & "', s25 = '" & Upload.Form("s25") & "', s26 = '" & Upload.Form("s26") & "', s27 = '" & Upload.Form("s27") & "', s28 = '" & Upload.Form("s28") & "', s29 = '" & Upload.Form("s29") & "', s30 = '" & Upload.Form("s30") & "' WHERE id = '" & Request.Querystring("gsid") & "'"
SET rs = Conn.Execute(sql)
END IF
%>
