<%@ Language=VBScript %> <% Dim strSQL1 ' used for passing the SQL statements Dim rsCal1 ' used for storing the Cal Events RecordSet Dim evDate ' used to store the Event Date Dim eventName, eventDesc, startTime, endTime, city, state, url, phone, zip, term, hyphen, addr1, addr2, addr3 Dim spTeam, spLoc 'checking for invalid event id IF NOT isDate(TRIM(request("dt"))) THEN Response.Redirect "index.asp" END IF evDate = CDATE(TRIM(request("dt"))) strSQL1 = "select * from Events_Tbl where EventDatestart<=#" & evDate &"# and EventDateEnd>=#" & evDate & "#" Dim cnObj1 Set cnObj1 = server.createobject("ADODB.Connection") cnObj1.open "dsn=yatescocdir" Set rsCal1 = cnObj1.Execute(strSQL1) Set cnObj1 = Nothing %>

Calender of Events Events as on <%=evDate%> <% IF Not rsCal1.EOF THEN %> <% While NOT rsCal1.EOF eventName = rsCal1("EventName") eventDesc = rsCal1("EventDescription") 'checking IF there is no Event Description IF eventDesc <> "" THEN eventDesc = eventDesc & ", " END IF phone = rsCal1("ContactPhone") url = rsCal1("Eventurl") IF url<>"" THEN IF UCASE(LEFT(url,7)) = "HTTP://" THEN url = RIGHT(url,LEN(url)-7) END IF END IF 'formatting the phone and URL IF phone <> "" and url="" THEN phone=phone & "." END IF IF url<>"" THEN IF phone <> "" THEN phone=phone & " or "+url+" " ELSE phone=phone & ""+url+" " END IF END IF %> <% rsCal1.moveNext WEND %> <% ELSE %> <% END IF %> Date Event Name & Phone <%=MONTHNAME(MONTH(rsCal1("EventDateStart"))) & " " & DAY(rsCal1("EventDateStart")) & ", " & WEEKDAYNAME(WEEKDAY(rsCal1("EventDateStart")))%> <% IF CDATE(rsCal1("EventDateStart")) <> CDATE(rsCal1("EventDateEnd")) THEN %> to <%=MONTHNAME(MONTH(rsCal1("EventDateEnd"))) & " " & DAY(rsCal1("EventDateEnd")) & ", " & WEEKDAYNAME(WEEKDAY(rsCal1("EventDateEnd")))%> <% END IF %> <% Response.write(eventName & " - " & "" & eventDesc & phone) %>     No Events on <%=evDate%>