<% DIM adduser, addemail, addwebsite, addmessage, displaymessage '********* SET VARS TO EQUAL FORM ********* adduser = Request.Form("newname") addemail = Request.Form("newemail") addwebsite = Request.Form("newwebsite") addmessage = Request.Form("newmessage") IF adduser = "" THEN adduser = "Anonymous Entry" IF addemail = "" THEN addemail = "empty" IF addwebsite = "" THEN addwebsite = "empty" IF addmessage = "" THEN %>
Sorry, seems like you didn't enter a message. Please CLICK HERE to go Back & try again.
<% ELSE Set GbkConn = server.CreateObject("ADODB.Connection") gbkConn.Open "underoathdb" Set rsGbk = Server.CreateObject("ADODB.Recordset") strSQL = "gbk" rsGbk.Open strSQL, GbkConn, 1, 3, &H0002 rsGbk.AddNew rsGbk("user") = adduser rsGbk("email") = addemail rsGbk("website") = addwebsite rsGbk("message") = addmessage rsGbk.Update rsGbk.Close Set rsGbk = Nothing GbkConn.Close Set GbkConn = Nothing displaymessage = Replace(addmessage, chr(10), "
") %>
Thank you for adding your comments to the Underoath Guestbook. We have added the following information:
Your Name: <%=adduser%>
Your Email Address: <%=addemail%>
Your Homepage: <%=addwebsite%>
Your Message:
<%=displaymessage%>



You may now close this window.
<% END IF %>