<%@ LANGUAGE="VBSCRIPT" %> <% response.expires = 0 %> <% response.buffer = true %> add.asp
          Add information on your restaurant: <% If Request.ServerVariables("Content_Length") > 0 Then %> <% If (len(request.form("Txtengname")) < 1 or request.form("Txtengname") = " " or isnull(request.form("Txtengname"))) Then %>

Please check input you must enter restaurant name !!!

Back <% ElseIf (len(request.form("Txtfood")) < 1 or request.form("Txtfood") = "------------------Please Selected--------------" or isnull(request.form("Txtfood"))) Then %>

Please check input you must selected Food !!!

Back <% ElseIf (len(request.form("Txtname")) < 1 or request.form("Txtname") = " " or isnull(request.form("Txtname"))) Then %>

Please check input you must enter your name !!!

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 registerres" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Conn, adOpenDynamic, adLockoptimistic rs.addnew rs("engname") = request.form("Txtengname") rs("thainame") = request.form("Txtthainame") rs("address") = request.form("Txtaddress") rs("telephone") = request.form("Txttelephone") rs("time") = request.form("Txttime") rs("food") = request.form("Txtfood") rs("other") = request.form("Txtother") rs("name") = request.form("Txtname") rs("email") = request.form("Txtemail") rs.update rs.close conn.close Set Conn = Nothing %>

Thank you for registering


Continue | Back to main
<% End If %> <% Else %>
Restaurant Name *  
ª×èÍÃéÒ¹
Address
Telephone No.  
Open / Close Time
Kind of Food *
Others (If Selected)
Your Name *  
E-mail (if available)
  
<% End If %>