I get this error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Session'
/inventory/check.asp, line 4
Here is the code sequence:
config.asp:
<%
cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
cst = cst & server.mappath("/inventusers/login.mdb"
sitename="company"
headimg="
yoursitehome="
membersonly="
adminpage = "
loginurl="
inventoryurl="
%>
check.asp:
<!--#INCLUDE file="config.asp"-->
<%
go = loginurl+"login.asp?stat=notin"
if Session("UserGood"

<> "True" then
response.redirect (""&go&""

end if
%>
login.asp:
<form method="post" name="form1" action="login2.asp">
<%
select case stat
case "badname"
response.write ("<p><span class=error>Incorrect Username</span></p>"

case "badpass"
response.write ("<p><span class=error>Incorrect Password</span></p>"

case "notin"
response.write ("<p><span class=error>You Are Not Currently Logged In.</span></p>"

case "notadmin"
response.write ("<p><span class=error>You Are Not Currently Logged In As The Admin.</span><</p>"

case "logout"
response.write ("<p><span class=error>You Are Now Logged Out.</span></p>"

end select
%>
<span class="text"><br>
<font face="Arial">Username<br>
<input type="text" size="40" name="username1" maxlength="255">
<br>
<br>
Password<br>
<input type="password" size="40" name="password1" maxlength="255">
<br>
<span class="text"><font color="#CCCCCC" size="2">Forget your password? Click <a href="mailto:webmaster@domain.com?subject=Password Inquiry">here</a>
to email webmaster.</font></span> <br>
</font></span>
<p><font face="Arial">
<input type="Submit" value="Sign In" name"b1">
</font></p>
<p><font face="Arial"><br>
<span class="text"><font color="#CCCCCC">If you're not already a member,
</font></span><font color="#CCCCCC"><a href="reg.asp"> Register Here</a> Free.</font></font></p>
<p> </p>
</form>
login2.asp:
<!--#INCLUDE file="config.asp"-->
<%
strUserName = request("username1"

strPassword = request("password1"
Set conn = Server.CreateObject("ADODB.Connection"

Set rs = Server.CreateObject("ADODB.Recordset"

sql = "SELECT pass FROM tblusers WHERE username ='" & strUserName & "'"
Conn.Open cst
rs.open sql, conn
If NOT rs.EOF Then
If strPassword = rs("pass"

Then
Session("UserGood"

= "True"
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("UserName"

= strUserName
if Session("UserName"

= "admin" then Response.Redirect (""& adminpage &""

Response.Redirect (""& membersonly &""

End If
Else
Session("UserGood"

= "False"
Session("UserName"

= "You are not Currently Logged In."
response.redirect "login.asp?stat=badname"
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("UserGood"

= False
Response.Redirect "login.asp?stat=badpass"
%>