Wo ist der Fehler in dieser .asp Datei? - Paules-PC-Forum.de

16.12.2010, 17:49

<%
Option Explicit
Dim useFrames, httpHost, zielURL, domList(), domZiel()
Dim aktHost, aktZiel, i
ReDim domList(6)
ReDim domZiel(6)

' ---- Einstellung -----------------------------------
' Sollen Frames verwendet werden?
' useFrames = true Frames sind aktiviert
' useFrames = false direkte Weiterleitung (standard)
useFrames = false

' ---- Einstellung -----------------------------------
' Geben Sie hier Ihre Domain-Namen an. Wenn der entsprechende
' Domain-Platz nicht belegt ist, dann setzen Sie ein "" ein.
' Bitte geben Sie kein "http://" vor der Domain an.
' z.B. domList(4) = ""
domList(0) = "www.c-s-consult.de" '(Haupt-Domain)
domList(1) = "www.drsiegle.de" '(Alias-Domain 1)
domList(2) = ""
domList(3) = ""
domList(4) = ""
domList(5) = ""
domList(6) = "HB360" '(Hier sollten Sie Ihre Server-ID 'eintragen, ' damit auch diese abgefangen wird.)

' ---- Einstellung -----------------------------------
' Geben Sie hier die Ziel-Verzeichnisse an. Es können sowohl
' vollständige URLs mit http:// als auch Verzeichnisse sein
' z.B. domZiel(4) = "http://www.domain.de/verzeichnis/"
' oder domZiel(4) = "verzeichnis/"
domZiel(0) = "http://www.c-s-consult.de/c-s-consult/"
domZiel(1) = "http://www.c-s-consult.de/drsiegle/"
domZiel(2) = ""
domZiel(3) = ""
domZiel(4) = ""
domZiel(5) = ""
domZiel(6) = "http://www.c-s-consult.de/c-s-consult/"

' Variablen initialisieren
httpHost = Request.ServerVariables("HTTP_HOST")
zielURL = ""

For i = 0 to 6
aktHost = domList(i)
aktZiel = domZiel(i)
if lCase(httpHost) = lCase(aktHost) then
zielURL = aktZiel
end if
Next

if zielURL = "" then %>
<h1>Domain nicht gefunden</h1>
<h3>Die Domain <%= httpHost %> wurde nicht gefunden oder es liegt ein
Konfigurationsfehler vor. Bitte prüfen Sie die Angaben zur Domain im
Weiterleitungs-Script (meist gespeichert als default.asp oder index.asp
im Hauptverzeichnis des Pakets).
<% else
if useFrames = true then %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html> <head>
<title><%= httpHost %></title> </head>
<frameset rows="0,*" border="0" frameborder="0" framespacing="0">
<frame src="leer" scrolling="no">
<frame src="<%= zielURL %>">
</frameset> </html>
<%
else
response.redirect zielURL
end if
end if
%>

16.12.2010, 17:49	#1 (Direktlink)
Unregistriert Gast Beiträge: n/a	Wo ist der Fehler in dieser .asp Datei? <% Option Explicit Dim useFrames, httpHost, zielURL, domList(), domZiel() Dim aktHost, aktZiel, i ReDim domList(6) ReDim domZiel(6) ' ---- Einstellung ----------------------------------- ' Sollen Frames verwendet werden? ' useFrames = true Frames sind aktiviert ' useFrames = false direkte Weiterleitung (standard) useFrames = false ' ---- Einstellung ----------------------------------- ' Geben Sie hier Ihre Domain-Namen an. Wenn der entsprechende ' Domain-Platz nicht belegt ist, dann setzen Sie ein "" ein. ' Bitte geben Sie kein "http://" vor der Domain an. ' z.B. domList(4) = "" domList(0) = "www.c-s-consult.de" '(Haupt-Domain) domList(1) = "www.drsiegle.de" '(Alias-Domain 1) domList(2) = "" domList(3) = "" domList(4) = "" domList(5) = "" domList(6) = "HB360" '(Hier sollten Sie Ihre Server-ID 'eintragen, ' damit auch diese abgefangen wird.) ' ---- Einstellung ----------------------------------- ' Geben Sie hier die Ziel-Verzeichnisse an. Es können sowohl ' vollständige URLs mit http:// als auch Verzeichnisse sein ' z.B. domZiel(4) = "http://www.domain.de/verzeichnis/" ' oder domZiel(4) = "verzeichnis/" domZiel(0) = "http://www.c-s-consult.de/c-s-consult/" domZiel(1) = "http://www.c-s-consult.de/drsiegle/" domZiel(2) = "" domZiel(3) = "" domZiel(4) = "" domZiel(5) = "" domZiel(6) = "http://www.c-s-consult.de/c-s-consult/" ' Variablen initialisieren httpHost = Request.ServerVariables("HTTP_HOST") zielURL = "" For i = 0 to 6 aktHost = domList(i) aktZiel = domZiel(i) if lCase(httpHost) = lCase(aktHost) then zielURL = aktZiel end if Next if zielURL = "" then %> <h1>Domain nicht gefunden</h1> <h3>Die Domain <%= httpHost %> wurde nicht gefunden oder es liegt ein Konfigurationsfehler vor. Bitte prüfen Sie die Angaben zur Domain im Weiterleitungs-Script (meist gespeichert als default.asp oder index.asp im Hauptverzeichnis des Pakets). <% else if useFrames = true then %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title><%= httpHost %></title> </head> <frameset rows="0,*" border="0" frameborder="0" framespacing="0"> <frame src="leer" scrolling="no"> <frame src="<%= zielURL %>"> </frameset> </html> <% else response.redirect zielURL end if end if %>

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Was passiert nach der Ausführung dieser Batch Datei?	Okh	Allgemein	2	03.08.2008 20:06
Warum tritt dieser Fehler bloß auf.	Sheera	Software - Allgemein	0	09.07.2006 11:37
Datei-Fehler	Haribomaennchen	Windows XP	1	15.02.2006 19:41
Ist dieser ACPI Fehler zu vernachlässigen ?	Hajooo	Windows XP	2	22.08.2005 12:10
Einfach Erklärung warum dieser Fehler entsteht	Haraldzzz	Windows XP	4	06.05.2005 16:49