Ska skriva in några textfält + 5 stycker filer med hjälp av aspupload.. så här ser det ut.
********************************
<%
Set objFile = Server.CreateObject("Persits.Upload.1")
objFile.OverwriteFiles = FALSE
objFile.Save(Server.MapPath("PicsNews"))
'Det ifyllda värdet från formulärfältet hämtas in
datum = objFile.Form("datum")
If datum = "" Then
Response.Redirect("news.asp?fel=ja")
end if
datum = kontroll(datum)
headline = objFile.Form("headline")
If headline = "" Then
Response.Redirect("news.asp?fel=ja")
end if
headline = kontroll(headline)
news = objFile.Form("news")
If news = "" Then
Response.Redirect("news.asp?fel=ja")
end if
news = kontroll(news)
sign = objFile.Form("sign")
If sign = "" Then
Response.Redirect("news.asp?fel=ja")
end if
sign = kontroll(sign)
function kontroll(check)
check = trim(check)
check = replace(check,"'","''")
check = replace(check,"<",".")
check = replace(check,">",".")
check = replace(check,vbCrLf,"<br>")
kontroll = check
end function
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")&";"
SQL = "INSERT INTO WEnews (datum,headline, news, sign,bild01,bild02,bild03,bild04,bild05) VALUES ('" & datum & "','" & headline & "','" & news & "','" & sign & "','"&Mid(objFile.Files("bild01").Path , InStrRev(objFile.Files("bild01").Path, "\"))&"','"&Mid(objFile.Files("bild02").Path , InStrRev(objFile.Files("bild02").Path, "\"))&"','"&Mid(objFile.Files("bild03").Path , InStrRev(objFile.Files("bild03").Path, "\"))&"','"&Mid(objFile.Files("bild04").Path , InStrRev(objFile.Files("bild04").Path, "\"))&"','"&Mid(objFile.Files("bild05").Path , InStrRev(objFile.Files("bild05").Path, "\"))&"');"
Con.Execute(SQL)
Con.close
Set con = nothing
Response.Redirect "news3.asp"
%>
***************************'
felmeddelandet:
Microsoft VBScript runtime error '800a01a8'
Object required: 'objFile.Files(...)'
news2.asp, line 54
************
jag vet inte hur jag ska göra riktigt...
chansade att det skulle vara så här.. men det blir fel.
plz hilfe mir!
/Widman