Help Datenbankbefehl einbinden,

[Stefan]

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