<%
Dim con, rstView
set con = server.CreateObject("ADODB.Connection")
con.Open "DBQ=" & Server.Mappath("/dickinsonchamber/data/MAINCal.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set con2 = server.CreateObject("ADODB.Connection")
con2.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.Mappath("/dickinsonchamber/data/newsite1139.mdb")
Set rstView = con.Execute("SELECT * FROM Events WHERE Date>#"&Date&"# ORDER by Date")
'first two upcoming events are on home page, third is on main calendar page
IF NOT rstView.EOF THEN
rstView.MoveNext
END IF
IF NOT rstView.EOF THEN
rstView.MoveNext
END IF
IF NOT rstView.EOF THEN
rstView.MoveNext
END IF
%>
Dickinson Area Partnership
<% eventDate=rstView("Date") %>
| |
| |
<%=left(rstView("Event_Name"),40)%>
<%=left(rstView("Location"),25)%>............<%=Monthname(Month(eventDate))&" "&Day(eventDate)%> |
<%set pagedata = con2.execute("select * from lodgingchamber")%>
<%=pagedata("details")%>
