Startseite   |  Impressum   |  Datenschutz   |  Kontakt   |  Aktuelles  

Taxi
Flughafentransfer
Shuttle
Reiseservice
Fahrzeugflotte


<% 'Dim fileSsi 'Dim httpCookies 'Dim queryString 'Dim serverNme 'Dim protocol 'fileSsi = Request.ServerVariables("URL") 'httpCookies = Request.Cookies("wId") 'httpCookies = Replace(httpCookies, chr(34), "") 'queryString = Request.ServerVariables("QUERY_STRING") 'serverName = Request.ServerVariables("SERVER_NAME") 'protocol = "http:" Dim dirCgiBin dirCgiBin = "/cgi-bin/" Dim docRoot docRoot = Server.MapPath("/") ' Ermittelt Cgi-bin directory Dim filewConfEnvironment filewConfEnvironment = docRoot & "\weblication\wConf\wConfEnvironment.xml" Set fileSystem = Server.CreateObject("Scripting.FileSystemObject") If(fileSystem.FileExists(filewConfEnvironment)) = true Then Set file = fileSystem.OpenTextFile(filewConfEnvironment, 1) fileStr = file.ReadAll 'old case Set regExpCgiBin = New RegExp regExpCgiBin.Pattern = "(.*?)<\/CGI_BIN>" regExpCgiBin.IgnoreCase = True If(regExpCgiBin.Test(fileStr)) = true Then dirCgiBinTmp = regExpCgiBin.Execute(fileStr)(0).Submatches(0) If(fileSystem.FolderExists(docRoot & dirCgiBinTmp)) = true Then dirCgiBin = dirCgiBinTmp Else 'Response.Write("Doesn't exist: " & dirCgiBinTmp & "
") End If Else 'Response.Write("NO: " & dirCgiBinTmp & "
") End If 'new case Set regExpUrlCgiBin = New RegExp regExpUrlCgiBin.Pattern = "(.*?)<\/URL_CGIBIN>" regExpUrlCgiBin.IgnoreCase = True If(regExpUrlCgiBin.Test(fileStr)) = true Then dirCgiBinTmp = regExpUrlCgiBin.Execute(fileStr)(0).Submatches(0) If(fileSystem.FolderExists(docRoot & dirCgiBinTmp)) = true Then dirCgiBin = dirCgiBinTmp Else 'Response.Write("Doesn't exist: " & dirCgiBinTmp & "
") End If Else 'Response.Write("NO: " & dirCgiBinTmp & "
") End If file.Close Set fileSystem = Nothing Set file = Nothing Else ' End If 'Response.Write("Doesn't exist: " & dirCgiBin & "
") ' Zeigt eine Navigation an Function wShowNavigation (navConfig, navTpl, navMode, navId) on error resume next documentRoot = Replace(Request.ServerVariables("PATH_TRANSLATED"), Replace(Request.ServerVariables("SCRIPT_NAME"),"/", "\"), "") dirNavigationStatic = "\weblication\wServercache\" Set replaceFileName = New RegExp replaceFileName.Pattern = "\.([^\.]+)$" navTplExtension = replaceFileName.Execute(navTpl)(0).Submatches(0) urlNavigation = dirCgiBin & "wNavigation.cgi?navconfig=" & navConfig & "&navtpl=" & navTpl & "&navmode=" &navMode & "&navid=" & navId & "&namestatic=" & "system" pathNavigationStatic = "wNavStat_~_" & Replace(navConfig, "/", "-~-") & "_~_" & Replace(navTpl, "/", "-~-") & "_~_" & navMode & "_~_" & navId & "." & navTplExtension pathNavigationStatic = documentRoot & dirNavigationStatic & Replace(pathNavigationStatic, "wNavStat_~_-~-", "wNavStat_~_") Set fileSystem = Server.CreateObject("Scripting.FileSystemObject") If(fileSystem.FileExists(pathNavigationStatic)) = true Then Set file = fileSystem.OpenTextFile(pathNavigationStatic, 1) Response.Write(file.ReadAll) file.Close Set fileSystem = Nothing Set file = Nothing Else wGetFile(urlNavigation) End If End Function ' Zeigt eine Liste an Function wShowList (file) on error resume next documentRoot = Replace(Request.ServerVariables("PATH_TRANSLATED"), Replace(Request.ServerVariables("SCRIPT_NAME"),"/", "\"), "") dirListStatic = "\weblication\wServercache\" pathListStatic = documentRoot & dirListStatic & "wListCache_" & Replace(file, "/", "~") & ".txt" urlList = dirCgiBin & "wExe.cgi?file=" & file Set fileSystem = Server.CreateObject("Scripting.FileSystemObject") If(fileSystem.FileExists(pathListStatic)) = true Then Set file = fileSystem.OpenTextFile(pathListStatic, 1) fileStr = file.ReadAll Set regExpExpires = New RegExp regExpExpires.Pattern = "^\s*" timeExpires = CLng(regExpExpires.Execute(fileStr)(0).Submatches(0)) timeCur = CLng(DateDiff("s", "01/01/1970 00:00:00", Now)) If(timeCur > timeExpires) = true Then 'Response.Write("

" & timeCur & " > " & timeExpires & "

") wGetFile(urlList) Else 'Response.Write("

" & timeCur & " < " & timeExpires & "

") Response.write fileStr End If file.Close Set fileSystem = Nothing Set file = Nothing Else wGetFile(urlList) End If End Function ' Zeigt die Bearbeitungsschaltfläche an Function wShowEditbutton (fileEditbutton, target, text) on error resume next If (Request.Cookies("wId") <> "") Then wGetFile(dirCgiBin & "wEditbutton.cgi?target=" & target & "&fileEditbutton=" & fileEditbutton & "&text=" & text) End If End Function ' Führt eine GET-Anfrage aus Function wGetFile (path) on error resume next Dim query If (InStr(path, "?") > 0) Then query = "&" & queryString Else query = "?" & queryString End If If Not (fileSsi = "") Then Set replaceOldFileSsi = New RegExp replaceOldFileSsi.Pattern = "\&?fileSsi=[^&]*" replaceOldFileSsi.Global = True query = replaceOldFileSsi.Replace(query, "") query = query & "&fileSsi=" & fileSsi End If Dim positionCookieStart Dim positionCookieStop If (InStr(httpCookies, "WSESSIONID") > 0) Then query = query & "&sessionid=" & httpCookies End If Dim url If (InStr(path, "//") > 0) Then url = path & query Else url = protocol & "//" & serverName & path & query End If url = Replace(url, "?&", "?") Dim httpObj 'Set httpObj = Server.CreateObject("Microsoft.XMLHTTP") Set httpObj = Server.CreateObject("MSXML2.ServerXMLHTTP") httpObj.open "GET", url, false httpObj.send If (Len(httpObj.ResponseText) > 0) Then Response.BinaryWrite httpObj.ResponseBody Else Response.write "" End If Set httpObj = Nothing End Function %> <% call wShowEditbutton("", "", "") %>

Herzlich Willkommen bei

                           Taxi, Shuttle- und Reiseservice Schön.


Wir sind Ihr kompetenter Partner für Taxifahrten in der Region Tharandter Wald, preiswerte Shuttlefahrten vom und zum Flughafen Dresden, Berlin und Leipzig sowie aus der Region Dresden zu allen Flughäfen in Deutschland und nach Prag.

Bei uns finden Sie Ihr Urlausangebot für die Ostseeinsel Usedom, welches mit der Fahrt ab Haustür einmalig in dieser Individualität und Breite in unserer Region ist.
Wir sind Ihr Partner für Ausflugsfahrten- und Programme mit Kleinbussen in der Region Dresden und Tharandter Wald.
  
Bei uns finden Sie Ihr Angebot für Ihren individuellen Aufenthalt von Kleingruppen in Dresden.

14 engagierte Mitarbeiterinnen und Mitarbeiter sorgen dafür, dass Sie gut betreut werden.

Lassen Sie sich von unserer Leistungsfähigkeit überzeugen. Wir freuen uns auf Sie!

                                                                                Ihr Andreas Schön




Aktuelles:



 Taxi Schön im Internet
>> mehr

..............................................


attraktive Reiseangebote
im Überblick - es lohnt sich!
>> mehr
..............................................


Taxi buchen?
>> zum Buchungsformular


Taxi, Shuttle- und Reiseservice Schön, 01737 Tharandt, Am Kindergarten 12, Tel.: 035203 / 37322, Email: info@taxi-shuttle-reiseservice.de