<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim MyDB
dim SQL
dim MySet
' List of the form fields
dim MyMonth
dim MyDay
dim MyMarineRequested
dim MyStartTime
dim MyEndTime
dim MyOrganization
dim MyAddress
dim MyEventLocation
dim MyToyDrive
dim MyFundRaiser
dim MyMediaPresentation
dim MyToyPickup
dim MyEmailAddress
dim MyPrimaryContact
dim MyOpenToPublic
dim MyDescription
' Open the database
set MyDB = Server.CreateObject("ADODB.Connection")
set MySet = Server.CreateObject("ADODB.Recordset")
MyDB.Provider = "Microsoft.Jet.OLEDB.4.0"
' This is for Go Daddy
db_dir = Server.MapPath("\access_db")
db_path = db_dir & "\toysfortots.mdb"
MyDB.Open(db_path)
'MyDB.Open(Server.Mappath("toysfortots.mdb"))
' Now insert this into the table
SQL = "SELECT MyMonth,MyDay,MyMarineRequested,MyStartTime,MyOrganization,MyEventLocation,MyToyDrive,MyFundRaiser,MyMediaPresentation,MyToyPickup,MyPrimaryContact,MyEmailAddress,MyOpenToPublic, MyEventDescription FROM events WHERE MyMonth = 'Oct.' AND MyOpenToPublic = 'ON' ORDER BY MyDay asc"
MySet.open SQL, MyDB
%>
Atlanta Toys For Tots Staff Page
