<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim mietangebote_master__MMColParam mietangebote_master__MMColParam = "1" If (Request.QueryString("id") <> "") Then mietangebote_master__MMColParam = Request.QueryString("id") End If %> <% Dim mietangebote_master Dim mietangebote_master_numRows Set mietangebote_master = Server.CreateObject("ADODB.Recordset") mietangebote_master.ActiveConnection = MM_hh_db_STRING mietangebote_master.Source = "SELECT * FROM objekte_t WHERE id = " + Replace(mietangebote_master__MMColParam, "'", "''") + "" mietangebote_master.CursorType = 0 mietangebote_master.CursorLocation = 2 mietangebote_master.LockType = 1 mietangebote_master.Open() mietangebote_master_numRows = 0 %> <% Dim berechnung__MMColParam berechnung__MMColParam = "1" If (Request.QueryString("id") <> "") Then berechnung__MMColParam = Request.QueryString("id") End If %> <% Dim berechnung Dim berechnung_numRows Set berechnung = Server.CreateObject("ADODB.Recordset") berechnung.ActiveConnection = MM_hh_db_STRING berechnung.Source = "SELECT * FROM objete_a WHERE id = " + Replace(berechnung__MMColParam, "'", "''") + "" berechnung.CursorType = 0 berechnung.CursorLocation = 2 berechnung.LockType = 1 berechnung.Open() berechnung_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Hausverwaltung Hoch



 

 

 

 


Objekt Nr.: <%=(mietangebote_master.Fields.Item("nummer").Value)%>
Ort/Stadtteil: <%=(mietangebote_master.Fields.Item("ort_stadtteil").Value)%>

 

Anschrift:   <%ausgabe=(mietangebote_master.Fields.Item("anschrift").Value) ausgabe=replace(ausgabe,vbcrlf,"
") response.write(ausgabe)%> 		 
     

<%DIM bildcheck bildcheck=(mietangebote_master.fields.item("bild2").value) %> <%if bildcheck<>""then %> " width="500" height="333">

<%=(mietangebote_master.Fields.Item("bildbeschriftung3").Value)%> <%else%> <%end if%>
<%DIM bildcheck2 bildcheck2=(mietangebote_master.fields.item("plan").value) %> <%if bildcheck2<>""then %> " width="500" height="333"> <%else%> <%end if%>
Weitere Ansichten:


<%DIM bildcheck3 bildcheck3=(mietangebote_master.fields.item("bild2").value) %> <%if bildcheck3<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung2").Value)%>


<%DIM bildcheck5 bildcheck5=(mietangebote_master.fields.item("bild4").value) %> <%if bildcheck5<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung4").Value)%>


<%DIM bildcheck7 bildcheck7=(mietangebote_master.fields.item("bild6").value) %> <%if bildcheck7<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung6").Value)%>


<%DIM bildcheck9 bildcheck9=(mietangebote_master.fields.item("bild8").value) %> <%if bildcheck9<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung8").Value)%>


<%DIM bildcheck11 bildcheck11=(mietangebote_master.fields.item("bild10").value) %> <%if bildcheck11<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung10").Value)%>


<%DIM bildcheck4 bildcheck4=(mietangebote_master.fields.item("bild3").value) %> <%if bildcheck4<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung3").Value)%>


<%DIM bildcheck6 bildcheck6=(mietangebote_master.fields.item("bild5").value) %> <%if bildcheck6<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung5").Value)%>


<%DIM bildcheck8 bildcheck8=(mietangebote_master.fields.item("bild7").value) %> <%if bildcheck8<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung7").Value)%>


<%DIM bildcheck10 bildcheck10=(mietangebote_master.fields.item("bild9").value) %> <%if bildcheck10<>""then %> ">" width="105" height="70" border="0"> <%else%> <%end if%>
<%=(mietangebote_master.Fields.Item("bildbeschriftung9").Value)%>

 

 
<% mietangebote_master.Close() Set mietangebote_master = Nothing %> <% berechnung.Close() Set berechnung = Nothing %>