<% Option Explicit %> <% If Request.QueryString("reply")= "thanks" then %>

Thank you for your input, <% = Request.QueryString("fromname")%> Your form has been submitted and will be added to our Weekly Special List.

Back to The Country House website

<% Else %> <% ' ----------------------- VERIFY USER ----------------------------------- Dim TureConn, TureConnString, TureSQL, rsTure, TurePass Set TureConn = Server.CreateObject("ADODB.Connection") Set rsTure = Server.CreateObject("ADODB.Recordset") Const adOpenStatic = 3 TureConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("specials/landhaus.mdb") TureConn.Open TureConnString ' -------- Pull CPture ----------------------------------------- TureSQL = "SELECT TOP 1 * FROM CPTure ORDER BY Rnd(-10000000*TimeValue(Now())*[ID])" rsTure.Open TureSQL, TureConn ' ----------------------- END Pull CPture ----------------------------------- %>

Country House Weekly Specials Signup We respect your privacy and do not share your information with anyone.
Your Name:
Your E-mail:
Your Town:
Your Birthday:
Your Anniversary:
Store Location:	Clarendon Hills Geneva Lisle
Verify:	.gif" width="75" height="25" align="absmiddle">
">	Back to The Country House website

<% rsTure.Close Set rsTure = Nothing TureConn.Close Set TureConn = Nothing %> <% End If %>