Frågan#1 <%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
Set Files = mySmartUpload.Files("file")
intCount = mySmartUpload.Save("/portfolio")
If Err Then
Response.redirect("uploadform.asp?do=error")
Else%>
' DATABASKOPPLING HÄR
<%
file_name = mySmartUpload.Form("name")
file_date = date()
file_description = mySmartUpload.Form("description")
file_cathegory = mySmartUpload.Form("cathegory")
SQL = "INSERT INTO portfolio (file_name, file_date, file_description, file_cathegory) VALUES ('" & file_name & "', '" & file_date & "', '" & file_description & "', '" & file_cathegory & "')"
objConn.Execute(SQL)
Response.redirect("uploadform.asp?do=done")
End If
%>
Får felmeddelandet:
aspSmartUpload.File error '80040460'
Unable to save file (Error 1120)
/index/upload.asp, line 10
Line 10 = intCount = mySmartUpload.Save("/portfolio")
Tacksam för svar : )
fixat... slutkoden blev:
<%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
Set Files = mySmartUpload.Files("file")
[B]intCount = mySmartUpload.Save("portfolio")[/B]
If Err Then
Response.redirect("uploadform.asp?do=error")
Else%>
' DATABASKOPPLING HÄR
<%
file_name = mySmartUpload.Form("name")
file_date = date()
file_description = mySmartUpload.Form("description")
file_cathegory = mySmartUpload.Form("cathegory")
SQL = "INSERT INTO portfolio (file_name, file_date, file_description, file_cathegory) VALUES ('" & file_name & "', '" & file_date & "', '" & file_description & "', '" & file_cathegory & "')"
objConn.Execute(SQL)
Response.redirect("uploadform.asp?do=done")
End If
%>