<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_bro_liste Dim rs_bro_liste_cmd Dim rs_bro_liste_numRows Set rs_bro_liste_cmd = Server.CreateObject ("ADODB.Command") rs_bro_liste_cmd.ActiveConnection = MM_conn_bro_STRING rs_bro_liste_cmd.CommandText = "SELECT Id, Land FROM liste_bro ORDER BY Pos ASC" rs_bro_liste_cmd.Prepared = true Set rs_bro_liste = rs_bro_liste_cmd.Execute rs_bro_liste_numRows = 0 %> <% Dim rs_bro__MMColParam rs_bro__MMColParam = "1" If (Request.Form("bro_liste") <> "") Then rs_bro__MMColParam = Request.Form("bro_liste") End If %> <% Dim rs_bro Dim rs_bro_cmd Dim rs_bro_numRows Set rs_bro_cmd = Server.CreateObject ("ADODB.Command") rs_bro_cmd.ActiveConnection = MM_conn_bro_STRING rs_bro_cmd.CommandText = "SELECT * FROM bro WHERE Id = ? ORDER BY Bezeichnung ASC" rs_bro_cmd.Prepared = true rs_bro_cmd.Parameters.Append rs_bro_cmd.CreateParameter("param1", 5, 1, -1, rs_bro__MMColParam) ' adDouble Set rs_bro = rs_bro_cmd.Execute rs_bro_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_bro_numRows = rs_bro_numRows + Repeat1__numRows %> Baurecht-online - Testzugang
Baurecht-online

Baurecht-online

Baurecht-online - Testzugang

  Im Testzugang von Baurecht-online können Sie den Inhalt der einzelnen Rubriken einsehen. Den registrierten Vollzugriff auf alle Gesetze, Verordnungen und Richtlinien können Sie in unserem Shop für 75,00 € netto pro Jahr bestellen.
 
Bitte wählen Sie ein Bundesland oder eine Rubrik:
<% ' gridfilter von Select DIM bundesland bundesland=Request.Form("bro_liste") if (bundesland="") then bundesland = "1" End If %>
<%=(rs_bro.Fields.Item("Land").Value)%>
<% ' gridfilter von Select DIM gridfilter gridfilter="?bro_liste=" & bundesland %>
 
Datenschutzerklärung
<% rs_bro_liste.Close() Set rs_bro_liste = Nothing %> <% rs_bro.Close() Set rs_bro = Nothing %>