last thing...i am using this code:
<%
Dim ID
Dim upl
Dim NewFileName
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 sql
Dim connn
connn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\html\hello\database\images.mdb"
Dim con
Set con = Server.CreateObject("ADODB.Connection")
If Len(File1) > 0 Then
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
NewFileName = "\cgi-bin\" & upl.ExtractFileName(upl.Form("File1"))
sql="INSERT INTO images (url,Trick,Skier,Photog) values('" & NewFileName & "','"& Trick &"','"& Skier &"','" & Photog & "')"
con.Open connn
con.Execute sql
If upl.SaveToWeb("File1", NewFileName) Then
response.write(NewFileName)
Else
Response.Write("There was an error saving the file to disk.")
End If
Else
sql="INSERT INTO images (url,Trick,Skier,Photog) values('" & url & "','"& Trick &"','"& Skier &"','" & Photog & "')"
con.Open connn
con.Execute sql
con.Close
End If
Set con= Nothing
%>
to try and upload an image to a folder and add the link to it(Url) in the DB..my prob is that i dont get any errors..i just get a blank screen. and the db has a bunch of black record fields, but they still got ids...ie..1..2.3..etc.
any help...thanks!
Topic Locked
Posted - 06 April 2002 : 18:14:05
