<%@ LANGUAGE="VBSCRIPT" %> <% response.expires = 0 %> <% response.buffer = true %> add.asp
<% If Request.ServerVariables("Content_Length") > 0 Then %> <% If (len(request.form("TxtFirstName")) < 1 or request.form("TxtFirstName") = " " or isnull(request.form("TxtFirstName"))) or _ (len(request.form("TxtDate")) < 1 or request.form("TxtDate") = " " or isnull(request.form("TxtDate"))) Then %>

Please check input data.
There are 3 required fieleds that you must fill in. i.e. Name, E-mail and Country.

Back <% Elseif (len(request.form("TxtCountry")) < 1 or request.form("TxtCountry") = "Please select Country " or isnull(request.form("TxtCountry"))) then%>

Please check input data.
There are 3 required fieleds that you must fill in. i.e. Name, E-mail and Country.

Back <% Elseif session("bkk")<> "doodee" then%>

No permission

Back <% Else %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") Conn.CommandTimeout = Session("DataConn_CommandTimeout") Conn.Open Session("DataConn_ConnectionString"), _ Session("DataConn_RuntimeUserName"), _ Session("DataConn_RuntimePassword") %> <% Dim sql , Flag sql = "Select * from guestbook" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Conn, adOpenDynamic, adLockoptimistic rs.addnew rs("firstname") = request.form("TxtFirstName") rs("emailaddress") = request.form("TxtEmail") rs("URL") = request.form("TxtURL") rs("Title") = request.form("TxtTitle") rs("Country") = request.form("TxtCountry") rs("Find") = request.form("TxtFind") rs("Comment") = request.form("TxtComment") rs("Other") = request.form("TxtOther") rs("Date") = request.form("TxtDate") rs.update rs.close conn.close Set Conn = Nothing %>

Thank you for signing the guest book.
Your information is received. There is no need to post it again.
Your posting will be seen first by the webmaster and will be uploaded as soon as possible.
Back to main
<% session("bkk") ="" %> <% End If %> <% Else %>

  Name (Full Name) *

  E-Mail Address *

  Your URL

  Title of your homepage

  Which country are you from? *

  How did you find us?

   Others (If you select others)

Enter your comments, questions and/or suggestions in the space below: ( No advertisement please)

* Indicates requested information
     

<% End If %>