<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open StrConn
If Request.QueryString("act")="add" Then
If (Request.Form("date")="" OR Request.Form("line1")="" OR Request.Form("line2")="" OR Request.Form("line3")="" OR Request.Form("line4")="" OR Request.Form("line5")="" OR Request.Form("line6")="") Then
Response.Write("
Form not completed fill,click a back button to check it out your form
")
else
Set ObjRs = Server.CreateObject("ADODB.Recordset")
ObjRs.Open "select * from event", ObjConn, 3,3
ObjRs.AddNew
ObjRs("e_date")=Request.Form("date")
ObjRs("e_line1")=Request.Form("line1")
ObjRs("e_line2")=Request.Form("line2")
ObjRs("e_line3")=Request.Form("line3")
ObjRs("e_line4")=Request.Form("line4")
ObjRs("e_line5")=Request.Form("line5")
ObjRs("e_line6")=Request.Form("line6")
ObjRs.Update
objRs.Close
ObjConn.Close
Set ObjRs = Nothing
Set ObjConn = Nothing
Response.Write("
Event has successful writing.")
Response.Write("")
End If
%>
<%
end if
%>
