<%@ LANGUAGE=VBScript %> STOBIE Immobilien - Angebote <%Dim Conn, rs Set Conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" DSNName = DSNName & Server.MapPath("/Datenbank/immo.mdb") Conn.Open DSNName strSQL = "SELECT * FROM Statistik WHERE Art LIKE '%" & Request.QueryString("Art") & Request.Form("Art") & "%'" rs.Open strSQL, Conn %>
<% do until rs.EOF %> <% if rs.Fields("Itzehoe") <> "0" then %> <% else %> <% end if %> <% if rs.Fields("Sonstige") <> "0" then %> <% else %> <% end if %> <% rs.MoveNext loop rs.Close %>
<% Response.Write rs.Fields("Art") %>
Region
Itzehoe & Kreis Steinburg
">
Sonstige Gebiete
">