<% 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 Dolmetscher Jan von Richter  
 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...

DOLMETSCHER JAN VON RICHTER
 

Als gelernter Wirtschaftsassistent, Fachrichtung Fremdsprachen ( Französisch/Englisch ) übernimmt Herr von Richter den kommunikativen Aufgabenbereich der AG. Seit 1999 in Paraguay lebend erlangte er im Jahre 2005 den Abschluss des staatlich vereidigten Dolmetschers in der paraguayischen Amtsprache Spanisch.

















 

semo datur cunctis... Sprache wird allen gegeben, ...
 
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) %>