hi all, help me debug the below code----
am trying to populate a hiddin textbox on the top frame on my page......
Error - > line 16 (Object Expected)
===========================
<%
Sub Auth()
Dim ConLog 'For Opening Connection to Db
Dim rs 'For RecordsSet
Set ConLog = Server.CreateObject("adodb.connection"
ConLog.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\Set rs = ConLog.Execute("select * from usr where username='" & _
request.form("uname" & "' and password='" & request.form("pwd" & "'"
if rs.eof=true then
Response.Redirect "logscr.htm"
else
'Session("me" = rs("username"
'Response.Write(Session("me")
%>
<script language="JavaScript">
document.frames("identity".item("me".value = <%=rs("username"%>
</script>
<%
Response.Write "Cool"
'Response.Redirect "welcome.asp"
end if
End sub
%>
<html>
<head>
<title>My First Login Screen in ASP</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<form>
<p><strong>My First Login Screen in ASP</strong></p>
<p> </p>
<p>Username <input type="text" name="uname" size="20"></p>
<p>Password <input type="text" name="pwd" size="20"></p>
<p><input type="button" value="Submit" name="B1" onclick=Auth()><input type="reset" value="Reset"
name="B2"></p>
</form>
</body>
</html>
am trying to populate a hiddin textbox on the top frame on my page......
Error - > line 16 (Object Expected)
===========================
<%
Sub Auth()
Dim ConLog 'For Opening Connection to Db
Dim rs 'For RecordsSet
Set ConLog = Server.CreateObject("adodb.connection"
ConLog.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\Set rs = ConLog.Execute("select * from usr where username='" & _
request.form("uname"
& "' and password='" & request.form("pwd" & "'"if rs.eof=true then
Response.Redirect "logscr.htm"
else
'Session("me"
= rs("username"'Response.Write(Session("me"
) %>
<script language="JavaScript">
document.frames("identity"
.item("me".value = <%=rs("username"%></script>
<%
Response.Write "Cool"
'Response.Redirect "welcome.asp"
end if
End sub
%>
<html>
<head>
<title>My First Login Screen in ASP</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<form>
<p><strong>My First Login Screen in ASP</strong></p>
<p> </p>
<p>Username <input type="text" name="uname" size="20"></p>
<p>Password <input type="text" name="pwd" size="20"></p>
<p><input type="button" value="Submit" name="B1" onclick=Auth()><input type="reset" value="Reset"
name="B2"></p>
</form>
</body>
</html>
![[noevil]](/data/assets/smilies/noevil.gif "[noevil] [noevil]")
