<%@ Language=VBScript %> <% Set con = Server.CreateObject("ADODB.Connection") con.Open Application("conAB") Set rs = Server.CreateObject("ADODB.Recordset") %>

alle Buschenschänke auf einen Blick

heute am <%=date()%>

<%=application("betr")%>

<% 'laden tabelle rs.open "SELECT * FROM abf_offen_heute",con %> <% while not rs.EOF %> <% rs.MoveNext wend Response.write "

Name	Adresse	Tel.Nr.
<%if ""=("" & rs("bu_web")) then %> <%=Server.HTMLEncode(rs("bu_name"))%> <%else%> " target="_blank"><%=Server.HTMLEncode(rs("bu_name"))%> <%end if%>	<%=Server.HTMLEncode(rs("bu_adr"))%>	<%=Server.HTMLEncode(rs("bu_tel"))%>	<%=Server.HTMLEncode(rs("zt_von"))%> - <%=Server.HTMLEncode(rs("zt_bis"))%>

" %>
 

oder am:		z.B.: 5.9.2001

<% rs.Close Set rs = Nothing con.Close Set con = Nothing %>