Hej!
Ska lägga till ett föremål (varuregister) i min accessdatabas och ladda upp en bild med AspSmartUpload. Har kopierat den från gammal sida jag gjort där det fungerat, men nu går det inte. Får detta felmeddelande:
Feltyp:
aspSmartUpload (0x800A0009)
Subscript out of range
/wwm/admin_objadd.asp, line 16
Denna kod:
<!-- #Include file="admin_top.asp" -->
<%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload '<---- Rad 16
intCount = mySmartUpload.Save(Server.MapPath("objects"))
objnamn = Replace(mySmartUpload.Form("namn"), "'", "''")
objbesk = Replace(mySmartUpload.Form("besk"), "'", "''")
objpris = Replace(mySmartUpload.Form("pris"), "'", "''")
Function namn(str)
if isnull(str) or len(str) = 0 then
name = ""
end if
Dim pos
str = Trim(str)
pos = inStrRev(str,"\")
namn = Right(str,Len(str)-pos)
End Function
Set File = mySmartUpload.Files("FILE1")
If Not File Is Nothing Then
For Each objFile in mySmartUpload.Files
tmpFile = objFile.FileName
Fil = namn(tmpFile)
Next
sql = "INSERT INTO objekt (objnamn, objbesk, objpris, objbild) VALUES ('" & objnamn &"','" & objbesk &"','" & objpris &"','" & fil &"')"
Else
sql = "INSERT INTO objekt (objnamn, objbesk, objpris) VALUES ('" & objnamn &"','" & objbesk &"','" & objpris &"')"
End if
Conn.Execute (sql)
Conn.Close
Set Conn = Nothing
Response.Redirect("admin_objnytt.asp")
%>
<!-- #Include file="admin_down.asp" -->
Hoppas någon vet. I övrigt så säger jag "hej" då detta är mitt första inlägg. Särskilt hej till Erik Juhlin på min gamla praoplats :e
