Hi,
nach verwenden des Code´s erhalte ich folgende Fehlermeldung.
Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 160
elseIf (objASPError.Description > "") Then
^
Laufzeitfehler in Microsoft VBScript- Fehler '800a01f4'
Variable ist nicht definiert: 'GetAuthInfo'
/login/login.asp, line 8
was kann das sein???
Mfg
Skinner
Hi,
Nun möchte ich nur die Funktion von Code 1. in Code 2. einfügen, damit ich auch dort die Abgefragten Information aus dem Login- Bildschirm benutzen kann, es handelt sich dabei allerdings nicht um ein Formular sondern um ein IIS Benutzer/Passwort Screen (wie bei einer Netzwerkanmeldung).
ich versuch es mal, allerdings ist einiges geraten.
Probier folgenden Code mal aus:
<%
Option Explicit
Response.Buffer = True
Const strThisRealm = "AspHeute Secure Area"
Dim strUName, strPwd, strTargetPage
GetAuthInfo strUName, strPwd
set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\test\test.mdb")
SQL = "SELECT * FROM login " & _
"WHERE User = '" & strUName & "' AND " & _
" Passwort = '" & strPwd & "'"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open SQL, dbConnection
If Not rst.EOF Then
Session("SecArea_LoginGranted") = True
Session("IntendedTarget") = rst("URL")
strTargetPage = Session("IntendedTarget")
' check: no infinite loops please!
If ("" = strTargetPage Or _
LCase(strTargetPage) = LCase(Request.ServerVariables("SCRIPT_NAME"))) Then
strTargetPage = "default.asp"
End If
Response.Redirect strTargetPage
Response.End
Else
strTargetPage = "wrong.html"
Response.Redirect strTargetPage
Response.End
End If
%>
Gruß
Stefan