<% @ LANGUAGE="VBSCRIPT" %> <% 'On Error Resume Next %> <% Rubrik = Request.QueryString("Rubrik") ID = Request.QueryString("ID") Aktion = Request.QueryString("Aktion") If Rubrik = "" Then Rubrik = "Bauen_im_Bestand" End If If Aktion = "Detail" Then Detail ID Else Uebersicht Rubrik End If Sub Detail(ID) Header "" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "faltings-db" SQLQuery = "SELECT * FROM Referenzen WHERE ID="&ID Set RS = OBJdbConnection.Execute(SQLQuery) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
"&RS("Bauvorhaben_Name")&"
"&RS("Bauvorhaben_Beschreibung")&"
Planung:"&RS("Architekt_Name")&"
"& RS("Architekt_Adresse")&"
Bau-Volumen:"&RS("Bauvolumen")&"
Baujahr:"&RS("baujahr")&"
"&RS("Bauvorhaben_Beschreibung")&"" Response.Write "
" Footer OBJdbConnection.Close End Sub 'Detail Sub Uebersicht(Rubrik) Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "faltings-db" If Rubrik <> "Aktuell" Then SQLQuery = "SELECT * FROM Referenzen WHERE Rubrik='"&Rubrik&"' ORDER BY Ordnung" Else SQLQuery = "SELECT * FROM Referenzen WHERE Aktuell=True ORDER BY Ordnung" End If Set RS = OBJdbConnection.Execute(SQLQuery) If Rubrik = "Bauen_im_Bestand" Then Ueberschrift= "Bauen im Bestand" ElseIf Rubrik = "Modernisierung_Umbau" Then Ueberschrift= "Modernisierungs- und Umbaumaßnahmen" ElseIf Rubrik = "Hochbau" Then Ueberschrift= "Hochbau" ElseIf Rubrik = "Industrie_und_Gewerbebau" Then Ueberschrift= "Industrie- und Gewerbebau" ElseIf Rubrik = "Wohn_und_Geschaeftshaeuser" Then Ueberschrift = "Wohn und Geschäftshäuser" ElseIf Rubrik = "Ingenieurbau" Then Ueberschrift= "Ingenieurbau" Else Ueberschrift="Ingenieurbüro Faltings" End If Header(Ueberschrift) Response.Write ""&vbCrLf Response.Write ""&vbCrLf Do While Not RS.EOF If RS("Baujahr") <> "" Then Baujahr = Replace(RS("Baujahr"), vbCrLF, "
") End If If RS("Bauvorhaben_Name") <> "" Then Bauvorhaben_Name = Replace(RS("Bauvorhaben_Name"), vbCrLF, "
") End If If RS("Bauvorhaben_Beschreibung") <> "" Then Bauvorhaben_Beschreibung = Replace(RS("Bauvorhaben_Beschreibung"), vbCrLF, "
") End If If RS("Architekt_Name") <> "" Then Architekt_Name = Replace(RS("Architekt_Name"), vbCrLF, "
") End If If RS("Architekt_Adresse") <> "" Then Architekt_Adresse = Replace(RS("Architekt_Adresse"), vbCrLF, "
") End If Response.Write ""&vbCrLf Response.Write ""&vbCrLf RS.MoveNext Loop Response.Write "
BauvorhabenPlanungBild / BeschreibungBau-VolumenBaujahr
"&Bauvorhaben_Name&"
"&Bauvorhaben_Beschreibung&"
"&Architekt_Name&"
"&Architekt_Adresse&"
"&vbCrLf 'If RS("Beschreibung") <> "" Then Response.Write RS("Beschreibung")&vbCrLf 'End If If RS("Bild") <> "" Then If RS("Bild_Gross") <> "" Then Response.Write "" Bauvorhaben_Name= Replace(Bauvorhaben_Name, "
", " ") Response.Write ""&Bauvorhaben_Name&"" Response.Write "
" Else Bauvorhaben_Name= Replace(Bauvorhaben_Name, "
", " ") Response.Write ""&Bauvorhaben_Name&""&vbCrLf End If End If Response.Write "
"&RS("Bauvolumen")&""&Baujahr&"

"&vbCrLf OBJdbConnection.Close Footer() End Sub ' Uebersicht Sub Header(Ueberschrift) Response.Write "Ingenieurbüro Faltings Hamburg und Schwerin"&vbCrLf Response.Write "" Response.Write "
"&Ueberschrift&"

" End sub 'Header Sub Footer() Response.Write "

powered by NetzWerkPlan GmbH" Response.Write "" Response.Write "" End Sub 'Footer %>