<% 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: Über uns Die AG Notariat Rodriguez  
 DIE AG
Cosmopolitan
Schreinerei Aristides Garzete
Schlosserei Hierro Bello
Organicont
Architekt Rodrigo Sanchez
Notariat Rodriguez
Dolmetscher Jan von Richter
 ÜBER UNS
Die AG
Gut ist uns nicht gut genug...

NOTARIAT RODRIGUÉZ
 

Das älteste Notariat vor Ort. Seit 1970 werden hier Verträge, An- und Einträge in das Grundbuchamt, Mahnungen und Abmahnungen sowie Überschreibungen von Besitztümern wie Autos oder Immobilien erstellt und rechtsgemäß beglaubigt. Profitieren Sie von 37 Jahren Erfahrung in notariellen Angelegenheiten.















 

Froilan Rodriguéz Notar
 
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) %>