<% 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: Immobilienangebot  

OBJEKT ANBIETEN
 

Sie besitzen ein Grundstück, ein Haus oder eine Gewerbeimmobilie in Paraguay und möchten diese veräussern? Dann füllen Sie ganz einfach das nachstehende Formular mit den angegebenen Daten aus. Wir antworten Ihnen umgehend, um einen Beratungstermin mit Ihnen zu vereinbaren.
 
ANGABEN ZUR PERSON



Nachname
 
Vorname
 
Telefon
 
E-Mail
 
ICH BIETE EINE IMMOBILIE



   zur Miete
 
   zum Kauf
 
ANGABEN ZUM OBJEKT



   Wohnung
 
   Haus
 
   Grundstück
 
   Ladenlokal
 
Größe (in qm/ha)
 
Anzahl der Zimmer
 
Preis
 
Sonstiges
 
Tragen Sie hier bitte weitere Informationen zum Objekt 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) %>