problemas con session

[keikos]

tengo este code:

<pre>

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

este codigo me falla , por que si detecta que no se pasado por el formulario si me manda a donde le digo , pero si detecta lo contrario no me manda error ni nada , solo me pone la pagina en blanco , que sera :&lt;

GRacias.

<embed src="http://www5.gratisweb.com/keikop/joit.swf" width="110" height="110"
</embed>

[keikos]

perdon :
es este codigo..


&lt;%
Dim oConn
Dim rs
dim user
dim pass
dim strsql
%&gt;
&lt;%
if request.form = &quot;&quot; then
if session(&quot;user&quot;) = &quot;&quot; then
response.redirect &quot;default.asp&quot;
%&gt;

&lt;% else %&gt;

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