problemas con session

[keikos]

perdon :
es este codigo..


<%
Dim oConn
Dim rs
dim user
dim pass
dim strsql
%>
<%
if request.form = "" then
if session("user") = "" then
response.redirect "default.asp"
%>

<% else %>

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("admins.mdb")
strsql = "SELECT * FROM admins"
Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3
if user = rs("user") and pass = rs("pass") then
todo
session("user") = user
session("pass") = pass
else
Response.Redirect "error.asp"
%>