| <%
If request("name") = "" or request("address") = "" or request("email") = "" Then %>
Welcome
to *artTime*!
Please submit this information so we can contact you!
<% Else
dim connect, recset, query
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "visitors"
Set recset = Server.CreateObject("ADODB.Recordset")
Query = "Select * from visitors"
Recset.open query, connect, adLockOptimistic, adOpenDynamic
Recset.Addnew
Recset("name") = Request("name")
Recset("address") = Request("address")
Recset("phone") = Request("phone")
Recset("email") = Request("email")
Recset("comments") = Request("comments")
Recset("date") = date
Recset.Update
%> Thank you for entering your information!
Back
to *artTime*
<% end if %> |
