<% If Request("Post")<>"" Then OpenDB con, "GuestBook" '--- determin browser and IP-------------- If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then browser = "MSIE" Elseif Instr(Request.ServerVariables("HTTP_USER_AGENT"), "Mozilla") Then browser = "Netscape" Else browser = "Other" End If IP = Request.ServerVariables("Remote_Addr") '---- end -------------------------------- SQL = "INSERT INTO tblGuestbook (fldName, fldCity, fldState, fldCountry, fldRefer, fldMessage, fldEmail, fldHomepage, fldBrowser, fldIP, fldTime, fldDate) VALUES ('" & _ InsertAP(Trim(Request("Name"))) & _ "','" & InsertAP(Trim(Request("City"))) & _ "','" & InsertAP(Trim(Request("State"))) & _ "','" & InsertAP(Trim(Request("Country"))) & _ "','" & Request("Refer") & _ "','" & InsertAP(Trim(Request("Message"))) & _ "','" & InsertAP(Trim(Request("Email"))) & _ "','" & InsertAP(Trim(Request("Homepage"))) & _ "','" & browser & _ "','" & IP & _ "',#" & Time() & _ "#,#" & Date() & "#)" con.execute(SQL) response.redirect "default.asp" End If %> POST A MESSAGE
POST A MESSAGE
Name:
City:
State:
Country:
Email:
Homepage:
Referred by: <%SelectRefer%>
Message: