Who's On This Month <% databaseDirectory = server.mappath("..\fpdb\") databaseLocation = databaseDirectory & "..\..\fpdb\bands.mdb" connectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&databaseLocation set dBconnection = Server.createobject("ADODB.connection") dBconnection.open connectionString Dim oRSa, cnt Dim varMonth Dim iDay Dim iMonth Dim iYear 'GETTING THE DATES FROM THE SYSTEM iDay = day(Date) If iDay =1 Then iDay="01" Else End If If iDay=2 Then iDay="02" Else End If If iDay=3 Then iDay="03" Else End If If iDay=4 Then iDay="04" Else End If If iDay=5 Then iDay="05" Else End If If iDay=6 Then iDay="06" Else End If If iDay=7 Then iDay="07" Else End If If iDay=8 Then iDay="08" Else End If If iDay=9 Then iDay="09" Else End If iMonth = month(Date) iYear = year(Date) If iMonth=1 then varMonth="01" Else If iMonth=2 then varMonth="02" Else If iMonth=3 then varMonth="03" Else If iMonth=4 then varMonth="04" Else If iMonth=5 then varMonth="05" Else If iMonth=6 then varMonth="06" Else If iMonth=7 then varMonth="07" Else If iMonth=8 then varMonth="08" Else If iMonth=9 then varMonth="09" Else If iMonth=10 then varMonth="10" Else If iMonth=11 then varMonth="11" Else If iMonth=12 then varMonth="12" Else End If End If End If End If End If End If End If End If End If End If End If End If Set oRSa=Server.CreateObject("ADODB.Recordset") 'oRSa.Open "SELECT * FROM Gigs ;", dBconnection, 2, 3 oRSa.Open "SELECT * FROM Gigs WHERE Month = '" &varMonth &"' AND Year = '" &iYear &"' AND Day >= '" &iDay &"' ORDER BY Day;", dBconnection, 2, 3 'response.write oRSa.Source response.write "
" Response.Write "" Response.Write "" response.write"" ON ERROR RESUME NEXT oRSa.MoveFirst Do While NOT oRSa.EOF If cnt = 0 Then Response.Write "" cnt = 1 Else Response.Write "" cnt = 0 End If If oRSa("ID") = 0000 Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" oRSa.MoveNext Loop oRSa.Close Response.Write "
" Response.Write "

" 'WRITING THE DAY MONTH AND YEAR Response.Write "
" Response.Write "Todays date is: -   " Response.Write iDay Response.Write "  " Response.Write varMonth Response.Write "  " Response.Write iYear Response.Write "   " response.write ("

") Response.Write "

NAMEPLAYING ATDATETIME
" &oRSa("bbandname") &"" &Ucase(oRSa("bbandname")) &"" &oRSa("Venue_Name") &"" varCounty = oRSa("Venue_Address_County") '=======variable for county feature========= varCounty = oRSa("Venue_ID") 'response.write varCounty '======= COUNTY FEATURE =========== Set oRSb=Server.CreateObject("ADODB.Recordset") oRSb.Open "SELECT Venue_ID, Venue_Address_Town, Venue_Address_County FROM Venues WHERE Venue_ID = " &oRSa("Venue_ID") &";", dBconnection, 2, 3 oRSb.MoveFirst Do While NOT oRSb.EOF response.write " " response.write oRSb("Venue_Address_Town") &" " &oRSb("Venue_Address_County") oRSb.MoveNext Loop oRSb.Close Set oRSb=nothing ' DEAL WITH THE NULL VALUE 'Response.Write TypeName(oRSa.Fields.Item("comments").Value) IF IsNull(oRSa.Fields.Item("comments").Value) Then Response.write "" Else Response.write "
Comments: " &oRSa("comments") &"" End If response.write"
" &oRSa("Day") &"/" &oRSa("Month") &"/" &oRSa("Year") &"" &oRSa("Time") &"
" Set oRSa=nothing %>