<%@LANGUAGE="VBSCRIPT"%>
<%
dim MyDB
dim SQL
dim MySet
' List of the form fields
dim MyMonth
dim MyDay
dim MyStartTime
dim MyEndTime
dim MyOrganization
dim MyAddress
dim MyEventLocation
dim MyToyDrive
dim MyFundRaiser
dim MyMediaPresentation
dim MyToyPickup
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,MyStartTime,MyOrganization,MyEventLocation,MyToyDrive,MyFundRaiser,MyMediaPresentation,MyToyPickup,MyOpenToPublic, MyEventDescription FROM events WHERE MyMonth = 'Oct.' AND MyOpenToPublic = 'Yes' ORDER BY MyMonth,MyDay asc"
MySet.open SQL, MyDB
%>
Atlanta Toys For Tots
<%
MySet.Close()
SQL = "SELECT MyMonth,MyDay,MyStartTime,MyOrganization,MyEventLocation,MyToyDrive,MyFundRaiser,MyMediaPresentation,MyToyPickup,MyEventDescription,MyOpenToPublic FROM events WHERE MyMonth = 'Nov.' AND MyOpenToPublic = 'Yes' ORDER BY MyDay asc"
MySet.open SQL, MyDB%>
Top
Toys for Tots November Calendar of Public Events
Date
Time
Organization
Location
Description
<%do while not MySet.EOF
%>
<%=MySet("MyDay")%>
<%=MySet("MyStartTime")%>
<%=MySet("MyOrganization")%>
<%=MySet("MyEventLocation")%>
<%=MySet("MyEventDescription")%>
<%MySet.MoveNext()
loop%>
<%
MySet.Close()
SQL = "SELECT MyMonth,MyDay,MyStartTime,MyOrganization,MyEventLocation,MyToyDrive,MyFundRaiser,MyMediaPresentation,MyToyPickup,MyEventDescription,MyOpenToPublic FROM events WHERE MyMonth = 'Dec.' AND MyOpenToPublic = 'Yes' ORDER BY MyDay asc"
MySet.open SQL, MyDB%>
Top
We would like to thank the following companies for turning their holiday event into a special Toys for Tots day.
<%
SQL = "SELECT distinct MyOrganization FROM events WHERE MyOpenToPublic = 'No' ORDER BY MyOrganization"
MySet.open SQL, MyDB
do while not MySet.EOF
%>
