![]() HOME ABOUT US SERVICE UNDERGROUND SERVICES PROJECTS EMPLOYMENT CONTACT US Upcoming Events
<%
calConn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("calendar\Calendar.mdb")
Set rsCal = Server.CreateObject("ADODB.Recordset")
calSQL = "Select * from CalendarInfo where Date >= #" & Date & "# ORDER BY Date"
rsCal.open calSQL, calConn
If NOT rsCal.bof and NOT rsCAL.eof then
%>
<%=rsCal.fields("date")%>
|
|||||
© 2007 Adkins Electric I All rights reserved | 10477 New Kings Road | Jacksonville, FL 32219 |