<% mls_userID = "2323" mls_debug = "0" ' Setzen Sie die Variable auf 1 um die Ausgabe zu testen mls_html_delim_pre = "" ' Trennzeichen vor dem Link (z.B.:

oder » oder ein anderes Zeichen) mls_html_delim_post = "
" ' Trennzeichen nach dem Link (z.B.:

oder ein anderes Zeichen) mls_site_encoding = "" ' Website encoding. Z.B.: KOI8-U, UTF-8, iso-8859-1 IF (Request.ServerVariables("REQUEST_METHOD") <> "POST") THEN IF Len( Request.ServerVariables("QUERY_STRING") ) THEN page = Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") ELSE page = Request.ServerVariables("URL") END IF mls_url = "http://data.mylinkstate.com/?userID=" & mls_userID & "&dom=" & Request.ServerVariables("HTTP_HOST") & "&page=" & SERVER.HTMLEncode(page) & "&qstr=&ip=" & Request.ServerVariables("REMOTE_ADDR") & "&debug=" & mls_debug & "&mls_html_delim_pre=" & SERVER.HTMLEncode(mls_html_delim_pre) & "&mls_html_delim_post=" & SERVER.HTMLEncode(mls_html_delim_post) & "&mls_site_encoding=" & SERVER.HTMLEncode(mls_site_encoding) Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objHTTP.SetTimeouts 1000, 1000, 1000, 1000 objHTTP.open "GET", mls_url, false objHTTP.send GetURL = objHTTP.ResponseBody IF (objHTTP.Status = "200") THEN Response.BinaryWrite objHTTP.ResponseBody END IF END IF %>
Sie sind hier: Immobiliensuche  

OBJEKT SUCHEN

Der erste Schritt zum Eigenheim

Sie suchen ein Haus ein Landgut oder eine Estancia in Paraguay? Oder wollen selbst bauen und haben noch nicht das passende Bauland gefunden? Dann füllen Sie das nachstehende Formular aus. Wir antworten Ihnen schnell und unverbindlich!


  

"My home is my castle."

 
ANGABEN ZUR PERSON



Nachname
 
Vorname
 
Straße/Hausnr.
 
PLZ/Ort
 
Telefon
 
Fax
 
E-Mail
 
ICH SUCHE EINE IMMOBILIE



   zur Miete
 
   zum Kauf
 
ANGABEN ZUM GESUCHTEN OBJEKT



   Wohnung
 
   Haus
 
   Grundstück
 
   Ladenlokal
 
Größe (in qm/ha)
 
Anzahl der Zimmer
 
Preis
 
OBJEKTLAGE



   Stadt
 
   Land
 
Sonstiges
 
Geben Sie hier weitere Wünsche ein, z. B. zu Lage, Ausstattung, Haustyp/-größe usw.




 
FreeLinks4All 



 
<% Servername = LCase(Request.ServerVariables("SERVER_NAME")) Scriptname = LCase(Request.ServerVariables("SCRIPT_NAME")) Varname = LCase(Request.ServerVariables("QUERY_STRING")) if Varname <> "" then seite = "http://"+Servername+Scriptname+"?"+Varname else seite = "http://"+Servername+Scriptname end if link = Server.URLEncode(seite) Private Function GetURL(URL) Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objHTTP.SetTimeouts 1000, 1000, 1000, 1000 objHTTP.open "GET", URL, false objHTTP.send GetURL = objHTTP.ResponseBody Set objHTTP = Nothing End Function Response.BinaryWrite GetURL("http://www.thelinkbox.com/extern.php?seite="+link) %>