<%@ language=vbscript %> <% dim ibesuche dbcon.open dbstr sql = "Update besuche SET zahl= zahl +1 where id=1" if session("besuch") <> "OK" then 'dbcon.execute(sql) end if sql = "" sql = "Select * from besuche where id=1" rs.open sql, dbcon ibesuche = rs("zahl") rs.close sql = "" dbcon.close session("besuch") = "OK" %>

		PBC NEWS <% DBCON.OPEN DBSTR SQL = "SELECT * FROM news WHERE Archiv='Nein' ORDER BY DATUM DESC" RS.OPEN SQL, DBCON do while not rs.eof %> <%=RS("DATUM")&"; "&RS("Ueber_lang")%> <%=RS("Newstext")%> <% rs.movenext loop RS.CLOSE DBCON.CLOSE%> Aktuell am 20.10. Links   Homepage   Seeländercup   Pool-Trophy   Bericht Team SM 2004   News-Archiv News Archiv Top 5 <% DBCON.OPEN DBSTR SQL = "SELECT TOP 5 ID, Datum, Ueber_kurz, Archiv, Datum FROM news WHERE Archiv='Ja' ORDER BY Datum DESC;" RS.OPEN SQL, DBCON DO WHILE NOT RS.EOF %> <%=RS("DATUM")%> "><%=RS("Ueber_kurz")%> <%RS.MOVENEXT LOOP RS.CLOSE DBCON.CLOSE%> Web Sponsoren / Partner
		Sponsoren und Medien in Zusammenarbeit mit dem PBC Biel
	| <%=ibesuche%> Besuche seit dem 10. Mai 2004 |  © WebPublishingy by P.Nydegger