<% Dim strQuery 'First, lets check and see if this is the first time through 'or the second time through. If Request.Form("Name") <> "" Then 'Second time through ' Set up a data connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ=" & Server.MapPath("/") & "\db\crftmlst.mdb;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=16;PageTimeout=5;SafeTransactions=0;UID=admin;UserCommitSync=Yes;" strQuery = "INSERT INTO crfttble (Post_Date,Post_Time,Name,add,add2,city,state,zip,phone,dob,email,comment) VALUES (FORMAT(DATE(),'MM/DD/YYYY'),FORMAT(TIME(),'HH:MM AMPM'),'" & Trim(Request.Form("Name")) & "','" & Trim(Request.Form("add")) & "','" & Trim(Request.Form("add2")) & "','" & Trim(Request.Form("city")) & "','" & Trim(Request.Form("state")) & "','" & Trim(Request.Form("zip")) & "','" & Trim(Request.Form("phone")) & "','" & Trim(Request.Form("dob")) & "','" & Trim(Request.Form("email")) & "','" & Trim(Request.Form("Comment")) & "')" Set RS = conn.Execute(strQuery) Conn.Close %> Fireside Saloon & Trading Post - Crafts Mailing List
Fireside Saloon & Trading Post - The driest bar in the state

Pony Express Counter

To receive our periodicals, which will detail the events and happenings with our site and the craftsmen and artisans who reside in our little community, fill out the following form and hand it to the Pony Express agent.

You will be added to our mailing list as soon as your form arrives.

Name:  
Address:  
Address2:
City:
State:
Zip Code:
Phone:
Date of Birth:
E-mail Address:  
Your Comments:

<% End If %>

All images and content
   Copyright (c) 2000, 2001, 2002 - Fireside Saloon & Trading Post