Das aktuelle Immobilienangebot

 

<% SQL = "SELECT * FROM Angebote ORDER BY ID DESC" On Error Resume Next Set con = CreateObject("ADODB.Connection") Set rec = CreateObject("ADODB.Recordset") con.Open "thierbach" ' DSN Eintrag If Err <> 0 Then response.write "Fehler: Die Datenbank konnte nicht geöffnet werden" Response.End End If ' Abfrage durchführen rec.Open sql, con, adOpenKeyset, adLockReadOnly If rec.EOF Then ' kein Datensatz gefunden Response.Write "Zur Zeit sind keine Einträge vorhanden " Response.End End If %>
<% rec.MoveNext n = n + 1 If rec.EOF Then Exit For Next %>

  
Derzeit haben wir folgende(s) Angebot(e) :
  

<% rec.PageSize = 1000 rec.AbsolutePage = pagenr n = 1 + rec.PageSize * (pagenr - 1) '(rec.PageSize - 1) 'Ergebnisse anzeigen For j = 0 To (rec.PageSize - 1) %> <%feld1= rec.Fields("ObjektArt")%> <%feld2= rec.Fields("Region")%> <%feld3= rec.Fields("Ort")%> <%feld4= rec.Fields("Zustand")%> <%feld5= rec.Fields("Wohnfläche")%> <%feld6= rec.Fields("Nutzfläche")%> <%feld7= rec.Fields("Grundstück")%> <%feld8= rec.Fields("bebaubar")%> <%feld9= rec.Fields("beziehbar")%> <%feld10= rec.Fields("Preis")%> <%feld11= rec.Fields("Miete")%> <%feld12= rec.Fields("Bild")%> <%feld13= rec.Fields("ID")%> <%feld14= rec.Fields("Beschreibung")%> <%a =""%> <%b =""%>
 
 

<% IF feld12<>"" Then a="" else b=""%><%= a%><%= b%>    

  Angebot Nr. :

<%= feld13%>

   
Objekt Art :

<%= feld1%>

bebaubar :

<%= feld8%>

Region / Ort :

<%= feld2%> / <%= feld3%>

beziehbar ab :

<%= feld9%>

Grundstück :

<%= feld7%>

Zustand :

<%= feld4%>

Wohnfläche / qm :

<%= feld5%>

Preis / € :

<%= feld10%>

Nutzfläche / qm :

<%= feld6%>

Miete /€ :

<%= feld11%>

Beschreibung :      


<%= feld14%>

 

 

 

zurück