<%@Language=VBScript%> <% page="events" pagetitle="Eden Volunteer Fire Company: Company Events" curmonthevents=false oConn_ConnectionString = "Driver={MySQL ODBC 3.51 Driver}; Server=edenfire.com; Database=edenfire_com; UID=station2; PWD=E241R24" set oConn = server.createobject("ADODB.connection") oConn.Open oConn_ConnectionString Set rsEVENTS = Server.CreateObject("ADODB.Recordset") set rsCURMONTH = Server.CreateObject("ADODB.Recordset") 'get current month's events ssql = "select * from tbl_calevents where month=" & month(date()) & " AND year=" & year(date()) & " ORDER BY DAY" set rsCURMONTH = oConn.Execute(ssql) if not rsCURMONTH.BOF and not rsCURMONTH.EOF then curmonthevents=true end if %>

This section is under construction.