<%@ EnableSessionState=False %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "anwaltdb","","avbtz" sql = "SELECT * FROM News" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 Anzahl=rs.RecordCount %>

Vereinsinformationen

Startseite Unser Verein Satzung Anwalt suchen Recht im Internet Vereinsinformationen Anwaltsnotdienst Kontakt Impressum

<%On Error Resume Next If rs.eof AND rs.bof Then Response.Write("Zur Zeit keine aktuellen Neuigkeiten! Besuchen Sie uns bald wieder!") Else%> <%rs.MoveFirst Schalter=0 do while Not rs.eof %> BGCOLOR="#F5F5DC"> <%Schalter = 1%> <%Else%> BGCOLOR="#96C8F0"> <% Schalter=0 End If%> <% rs.MoveNext loop End If %>

<%=Server.HTMLEncode(rs.Fields("Ueberschrift").Value)%>

<%=Server.HTMLEncode(rs.Fields("Text").Value)%>   <%=Server.HTMLEncode(rs.Fields("Text2").Value)%>   <%=Server.HTMLEncode(rs.Fields("Text3").Value)%>   <%If rs.Fields("email") <> "" Then%> E-Mail:  "><%=Server.HTMLEncode(rs.Fields("email").Value)%> <%End If%> <%If rs.Fields("URL") <> "" Then%> Internet:  "><%=Server.HTMLEncode(rs.Fields("URL").Value)%> <%End If%>

<% conn.Close %>
Anfang