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

Alle Buschenschänke auf einen Blick

ohne Öffnungszeiten | mit Öffnungszeiten

<% 'laden tabelle rs.open "SELECT * FROM abf_alle",con %> <% dim v_idalt while not rs.EOF if rs("id") <> v_idalt then %> <% v_idalt = rs("id") end if if Request.QueryString("zeit") <> "N" then %> <% end if 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"))%>
<%=rs("zt_von")%> - <%=rs("zt_bis")%>

" %>

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