versuchs mal mit rs.Fields("Username")
----- Original Message -----
From: "Kai Beppler" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Thursday, November 07, 2002 8:23 AM
Subject: [aspdebeginners] Kann mir jemand helfen?
> Hoffe, es kann mr jemand hier helfen.
> passiert jedes mal beim Einloggen, das der Fehler hier passiert:
>
> Fehlertyp:
> Laufzeitfehler in Microsoft VBScript (0x800A000D)
> Typen unvertr�glich: 'Session'
> /guestbook/admin/logon.asp, line 20
>
> Hier das Script:
>
> <% @ Language=VBScript %>
> <!--#include file="includes.asp"-->
> <%
> cstrPagetitle = "Logon for " & strSite & " Guestbook"
> %>
> <%
> bValidationFailed = False
> If Request.ServerVariables("CONTENT_LENGTH") > 0 Then
> strUsername = Trim(Request.Form("UName"))
> strPassword = Trim(Request.Form("UPwd"))
> strUsername = Replace(strUsername, "'", "''")
> strPassword = Replace(strPassword, "'", "''")
>
> Set conn = CreateObject("ADODB.Connection")
> Set rs = CreateObject("ADODB.Recordset")
> conn.Open strConnection,"",""
> rs.Open "select * from AdminLogins where Username='" & strUsername & "'
> AND Password='" & strPassword & "'", conn
>
> If not rs.EOF and not rs.BOF then
> Session("Username") = rs("Username")
> Session("Fullname") = rs("Fullname")
> strACL = rs("Privileges")
> Session("ACL") = strACL
> rs.Close
> conn.Close
>
> ' split the ACL if necessary
> If "Admin" <> strACL Then
> Session("Contests") = Right(strACL,Len(strACL)-6)
> Session("ACL") = "Watcher"
> End If
>
> if "" <> Session("DesiredDestination") then
> Response.Redirect Session("DesiredDestination")
> else
> Response.Redirect strBaseUrl & "default.asp"
> end if
> End if
> Response.AppendToLog " logon failed: " & strUsername & " " & strPassword
> bValidationFailed = True
> End If
> %>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <html>
> <head>
> <title><%=cstrPagetitle%></title>
> <link rel="stylesheet" href="main.css" type="text/css">
> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
> </head>
> <body bgcolor="#ffffff">
>
> <table width="100%">
> <tr><td align="center">
> <table border=1>
> <tr><td bgcolor="#33ccff" valign="center" align="center" width="350">
> <H1>Logon</H1>
> <i><%=strSite%> Guestbook</i>
> <p>
> In order to administer the guestbook you have to log on.
> </p>
>
> <% if bValidationFailed Then %>
> <p><strong>You couldn't be logged on. Please re-type your username and
> password.</strong></p>
> <% End If %>
> <p>
> <form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
> <table>
> <tr><td>Username:</td><td><input type=text name="uname"
size="20"></td></tr>
> <tr><td>Password:</td><td><input type=password name="upwd" size
> ="20"></td></tr>
> <tr><td colspan=2> <br><center><input type="submit" value="Enter
> secured area"></center></td></tr>
> </table>
> </form>
> </p>
>
> </td></tr></table>
> </td></tr></table>
>
> </BODY>
> </HTML>
>
> Wer weiss rat?
>
>
>
> Danke im voraus
>
> Kai
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
