<%
StoreName = request.queryString("StoreName")
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
%>
<%
strSQL = "SELECT StoreInfo.* FROM StoreInfo Where " & _
"Store='" & (StoreName) & "' "
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
rsGuestbook.Open strSQL, adoCon
Do While not rsGuestbook.EOF
Page = rsGuestbook("DefLoc")
Response.Cookies("DefLoc") = Page
Response.Cookies("DefLoc").Expires = DATE + 365
%>
Welcome to Macayo.com
Our online Menu is under construction please click on one of
the printable menus bellow.
<%
If rsGuestbook("PrintableMenu") = "True" Then
%>
<%
ELse
END IF
%>
<%
'Move to the next record in the recordset
rsGuestbook.MoveNext
Loop
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>
