VLA Events Search
Search Page

<% Set conn = Server.CreateObject("ADODB.Connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & Server.MapPath("db/events.mdb") conn.Open DSNtemp%> <% myquery="SELECT DISTINCT (Event_Category) FROM tblEvents ORDER BY Event_Category ASC"%> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.Open myquery, conn, 3, 3 %>

List All Events In A Category

     

Category Search Help

Choose a category and click Search to list every event in that category.

Keyword Search



Keyword Search Help

Choose a database field to search in then enter a word you want to find and click search. For example to find events in 'Event Name' choose Event Name and type in Council then click Search

Today's Events

<% Set conn = Server.CreateObject("ADODB.Connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & Server.MapPath("db/events.mdb") conn.Open DSNtemp %> <% eventquery="SELECT * FROM tblEvents WHERE (((tblEvents.Start_Date)<=Date()) AND ((tblEvents.End_Date)>=Date()));" %> <%Set rs = Server.CreateObject("ADODB.Recordset") rs.Open eventquery, conn, 3, 3 %>

Events for <%= formatdatetime((now),vblongdate) %>

<%rs.Close Set rs = Nothing %>

 



 



Copyright ©; 1996-2002 Virginia Library Association.
All rights reserved.
Webmaster: Steven P. Helm shelm@radford.edu 


Last Modified: March 7, 2002