<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.SaveVirtual("/db/filer")
Upload.Close
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/db/spara.mdb") & ";pwd=;"
Set RecSet = Server.CreateObject("ADODB.Recordset")
spara = "SELECT \* FROM annons"
RecSet.Open spara, Connect, adOpenDynamic, adLockOptimistic
RecSet.AddNew
If Request.Form("namn") \<\> "" Then
RecSet("namn") = Request.Form("namn")
End If
If Request.Form("telefon") \<\> "" Then
RecSet("telefon") = Request.Form("telefon")
End If
RecSet("filnamn") = File.FileName
RecSet("hojd") = File.ImageHeight
RecSet("bred") = File.ImageWidth
RecSet.Update
RecSet.Close
Connect.Close
%>
Ngn stans här blir de fel! Det blir felmess "object required". Jag har provat lite olika lösningar men jag får ingen rätsida på de! Ngn som har god koll o kan se mitt misstag????