<% Dim myDay, Bundesland, PageSize, intCounter, AbsolutePage, intPageCounter
Bundesland = "%"
if Request.QueryString("Bundesland") <> "" then Bundesland = Request.QueryString("Bundesland")
strDB = "Data Source=" & Server.MapPath("../../datenbank/ao06.ctl") ' Pfad und Dateiname der Datenbank
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB ' Parameter zum Öffnen der Datenbank
strTabelle = "Termine" ' Name der Tabelle oder Abfrage, die geöffnet werden soll
Set objCon = Server.CreateObject("ADODB.Connection") ' Objekt für den Verbindungsaufbau mit der Datenbank
objCon.Open strCon,3,3
strSQL = "SELECT TerminID, Datum, Uhrzeit, Adresse, PLZ, Ort, TerminTyp, Infos, Sonder, Link, Aktiv, Username FROM AufOnlineTermine WHERE Datum >= DATE() AND Bundesland LIKE '" & Bundesland & "' AND Aktiv='Ja' ORDER BY Datum,PLZ,Uhrzeit"
PageSize = 20
intCounter = 1
AbsolutePage = Request("PN")
Set objRS = Server.CreateObject("ADODB.Recordset") ' Objekt fuer das Recordset-Objekt
objRS.PageSize = PageSize
objRS.CacheSize = PageSize
objRS.Open strSQL, objCon
AbsolutePage = 1
if objRS.BOF or objRS.EOF then
Response.Write "<tr><td class='texts'>Es sind keine entsprechenden Termine verfügbar!</td></tr>"
else
end if
if AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(objRS.PageCount) Then
AbsolutePage = 1
End if
objRS.MoveFirst ' Geht zum ersten Datensatz
DO while not objRS.EOF And intCounter <= PageSize
IF myDay = "" or myDay <> day(objRS("Datum")) THEN
Response.Write "<table border='0' width='640' cellspacing='0' cellpadding='0'><tr><td class='textk'><br><font color='red'>" & Weekdayname(weekday(objRS("Datum"))) & ", " & objRS("Datum") & "</font></td></tr></table><table border='0' width='640' cellspacing='0' cellpadding='0'>"
myDay = day(objRS("Datum"))
END IF
IF objRS("Sonder")="Ja" THEN
Response.Write "<tr><td class='textk' width='15'><img src='bullet_stern.jpg'></td>"
ELSE
Response.Write "<tr><td class='textk' width='15'> </td>"
END IF
IF objRS("Link")="" THEN
Response.Write "<td width='15' class='textk'> </td>"
ELSE
Response.Write "<td width='15' class='textk'><a href='http://" & objRS("Link") & "' target='_blank'><img src='img_link2.gif' border='0'></a></td>"
END IF
Response.Write ("<td width='40' class='textk'>" & objRS("PLZ") & "</td>" & _
"<td width='60' class='textk'>" & objRS("Ort") & "</td>" & _
"<td width='130' class='textk'>" & objRS("Adresse") & "</td>" & _
"<td width='110' class='textk'>" & objRS("TerminTyp") & "</td>" & _
"<td width='60' class='textk'>" & objRS("Uhrzeit") & " Uhr</td>" & _
"<td width='150' class='textk'>" & objRS("Infos") & "</td></tr>")
intCounter = intCounter + 1
objRS.MoveNext ' Geht einen Datensatz weiter
LOOP
Response.Write "</table>"
For intPageCounter = 1 To objRS.PageCount
if CInt(intPageCounter) = CInt(AbsolutePage) Then
Response.Write intPageCounter & ""
Else
Response.Write "<a href='terminausgabe.asp?PN=" & intpageCounter & "'>" & intPageCounter & "</a>"
end if
next%>