<%
Dim ID
Dim Trick
Trick= request.form("Trick")
Dim Skier
Skier= request.form("skier")
Dim url
url=request.form("url")
Dim Photog
Photog= request.form("photog")
Dim connn
connn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\conntomydatabase"
Dim con
If Len(request.form("File1")) > 0 Then
response.redirect("/inserta.asp")
Else
sql="INSERT INTO images (url,Trick,Skier,Photog) values('" & url & "','"& Trick &"','"& Skier &"','" & Photog & "')"
End If
con.Open connn 
con.Execute sql
con.Close
Set con= Nothing
%>

quote:

---

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/insert.asp, line 19

---

thanks

<%Dim ID
  Dim Trick
  Trick= request.form("Trick")
  Dim Skier
  Skier= request.form("skier")
  Dim urlurl=request.form("url")
  Dim PhotogPhotog= request.form("photog")
  Dim connn
  connn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\conntomydatabase"
  Dim con
  set con = Server.CreateObject("ADODB.Connection")
  If Len(request.form("File1")) > 0 Then
  response.redirect("/inserta.asp")
  Else
  sql="INSERT INTO images (url,Trick,Skier,Photog) values('" & url & "','"& Trick &"','"& Skier &"','" & Photog & "')"
  End If

con.Open connn 
con.Execute sql

con.Close
Set con= Nothing
%>

quote:

---

Microsoft JET Database Engine error '80004005'

Field 'images.Url' cannot be a zero-length string.

/insert.asp, line 23

---

line 23:

con.Execute sql