Tjek om fil er angivet inden upload vha. upload.form
Jeg er ved at lave et lille køb-salg forum, hvor man skal kunne skrive et indlæg om den bil man vil sælge/købe/bytte med. Man kan så vælge at "Gennemse" efter et billede, som så bliver uploadet og associeret med indlægget.Mit problem er, at hvis man IKKE vælger en fil, så crasher scriptet, da det forsøger at uploade noget der ikke eksisterer.
Hvordan faen kan jeg tjekke for om en fil er angivet INDEN upload processen? Mit script ser nogenlunde sådan her ud:
If Request.QueryString("mode") = "save" Then
brugerMappe = Server.MapPath("/data/forumimages/")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.Save brugerMappe
Set File = Upload.Files("ATTACHMENT")
Filnavn = File.Filename
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open Connect()
RS.Open "SELECT * From ThePost", Conn, 1, 3
RS.AddNew
RS("Dato") = Now()
RS("Navn") = Upload.Form("navn")
RS("Email") = Upload.Form("email")
RS("TlfNr") = Upload.Form("tlfnr")
RS("Bemaerkning") = Replace(Upload.Form("bemaerkning"), VbCrLf, "<br>")
RS("Indlaeg") = Replace(Upload.Form("indlaeg"), VbCrLf, "<br>")
If Upload.Form("buy") <> "" Then
RS("Buy") = True
Else
RS("Buy") = False
End if
RS("picture") = "/billeder/" & Filnavn
If Upload.Form("sell") <> "" Then
RS("Sell") = True
Else
RS("Sell") = False
End if
If Upload.Form("Xchg") <> "" Then
RS("Xchg") = True
Else
RS("Xchg") = False
End if
RS("UserIP") = request.servervariables("REMOTE_ADDR")
RS.Update
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
