Willkommen in Beli's Gästebuch
d
Ich will was reinschreiben!

<% PageNo = request("page") If PageNo="" then %> <% PageNo=1 ElseIf PageNo=1 then %> <% Else %> <% End If set conn = server.createobject("adodb.connection") conn.open "Beli" sqlstmt = "SELECT * from VBC06Eintraege ORDER BY ID DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conn, 3, 3 TotalRecs = rs.recordcount rs.Pagesize=30 TotalPages = cInt(rs.pagecount) rs.absolutepage=PageNo If PageNo = 1 then response.write "Es gibt " & TotalRecs & " Einträge
" End If If rs.eof then response.write "


Sorry, es gibt noch keine Gästebucheintragungen." response.write "
Ins Gästebuch eintragen
" response.end End If x = 0 For x = 1 to 30 If rs.eof then Exit For Else When = rs("Date") Name = rs("Name") Name = Replace(Name,"''","'") City = rs("City") ID = rs("ID") Country = rs("Country") Email = rs("Email") URL = rs("URL") If IsEmpty(URL) or URL = "" then Link = "no URL given" Else Link = "" & URL & "" End If Comments = rs("Comments") Comments = replace(Comments, "''", "'") Start = rs("Date") %>
Eintrag Nummer: <%= ID-10%>
<%= When %>
<%= Comments %>
<% If IsEmpty(Email) or Email="" then response.write(Name) Else response.write "" & Name & "" End If %>
<%= City %>   <%= Country %>
<%= Link %>
<% rs.MoveNext End If Next response.write "" response.write "
" If PageNo > 1 then response.write "
" response.write "" response.write "" response.write "" Else response.write " " End If response.write "
" If PageNo = 1 then response.write "
" response.write "" response.write "" response.write "" Else response.write " " End If response.write "
" If NOT rs.eof then response.write "
" response.write "" response.write "" response.write "" Else response.write " " End If response.write "
" conn.close set conn = nothing %>
nnn

Top-News:
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Beli" sql="SELECT TblNewsVBC.* FROM TblNewsVBC ORDER by Eintragsdatum DESC" Set RS = Conn.Execute(sql) %> <% Counter=0 DO WHILE NOT Counter>2 if RS("Show")="No" then else%> <% Counter=Counter+1 %> <% Test=RS("URL") %>
<%=Counter%> <%=") "%> <%if RS("URL")="" then%> <%=RS("Title")%> <%else%> " target="_top"><%=RS("Title")%> <%end if%> <% end if RS.movenext loop conn.close set conn = nothing %>

Neu auf vbcwittenbach.ch:
- Shirts!
- Wollen Sie uns sponsoren?
- VBC Vereinsgeschichte

- Wittenbachbeach 2005


nnn