%@ 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")%> |
| 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"))%> | <% rs.MoveNext wend Response.write "