Hi im having a proble with this code, please can someone help it says unexpected error on line 5, event = Replace(Server. HTMLEncode(Requ est.Form("event ")),"'","'' ")
thanks in advance
here is my code can anyone see anything wrong with this?
thanks in advance
here is my code can anyone see anything wrong with this?
Code:
<%
response.buffer = true
date = Replace(Server.HTMLEncode(Request.Form("date")),"'","''")
event = Replace(Server.HTMLEncode(Request.Form("event")),"'","''")
venue = Replace(Server.HTMLEncode(Request.Form("venue")),"'","''")
details = Request.Form("details")
details = Replace(details , "'", "''")
details = Replace(details, vbcrlf, "<br>")
if date = "" OR event = "" OR venue = "" OR details = "" then
Response.Redirect("post.asp?error=1")
end if
if instr(LCase(details), "<script") <> 0 then
Response.Redirect("post.asp?error=2")
end if
set conn = Server.CreateObject("ADODB.connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("\upcoming Events\db\upcoming.mdb") & ";" & _
"Persist Security Info=False"
conn.Open(sConnection)
sqlstring = "INSERT INTO board ( date, event, venue, details ) " &_
"values ('" & date & "','" & event & "','" & venue & "','" & details & "')"
conn.Execute(sqlstring)
conn.Close
set conn = Nothing
Response.redirect "\upcoming events\defualt.asp"
%>
Comment