% @ 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 ""&RS("Bauvorhaben_Name")&" "&RS("Bauvorhaben_Beschreibung")&" |
"
Response.Write "Planung: | "&RS("Architekt_Name")&" "& RS("Architekt_Adresse")&" |
"
Response.Write "Bau-Volumen: | "&RS("Bauvolumen")&" |
"
Response.Write "Baujahr: | "&RS("baujahr")&" |
"
Response.Write ""
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 "Bauvorhaben | Planung | Bild / Beschreibung | Bau-Volumen | Baujahr |
"&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 ""&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 ""
Response.Write ""
Else
Bauvorhaben_Name= Replace(Bauvorhaben_Name, " ", " ")
Response.Write ""&vbCrLf
End If
End If
Response.Write " | "&RS("Bauvolumen")&" | "&Baujahr&" |
"&vbCrLf
Response.Write "
|
"&vbCrLf
RS.MoveNext
Loop
Response.Write "
"&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
%>