Ayuda con Response.Cookies

12/02/2004 - 23:49 por David | Informe spam
Hola a todos,
necesito ayuda con este codigo:

<%
set CheckUser = Server.CreateObject("ADODB.Recordset")
CheckUser.ActiveConnection = dbpath
CheckUser.Source = "SELECT * FROM Members WHERE Username
= '" + Replace(CheckUser__myuser, "'", "''") + "' AND
Confirmed = TRUE"
CheckUser.CursorType = 0
CheckUser.CursorLocation = 2
CheckUser.LockType = 3
CheckUser.Open
CheckUser_numRows = 0
%>
<%
if checkUser.eof then
response.redirect"../login.asp?error=No encontrado"
End if

if lcase(checkUser("Username")) = lcase(request
("username")) then
if checkuser("mypass") = request("mypass") then
Response.Cookies("username") = checkuser
("Username")
Response.Cookies("numcol") = checkuser
("numcol")
session("user-logged") = "Yes"
session("user-level") = CheckUser
("ApvLevel")
if filewrite <> "" then %>
<!--#include file ="filewrite.asp">

El problema es que cuano accede a este codigo, me da un
error de Response.Cookies que es el siguiente:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'response.Cookies'


Me podeis ayudar? Gracias
 

Leer las respuestas

#1 Manuel Vera
13/02/2004 - 18:15 | Informe spam
Verifica el valor que tiene "checkuser" con:

response.write "checkuser = " & checkuser
response.end

antes de asignarselo al cookie.

Saludos
MV

"David" wrote in message
news:f83f01c3f1ba$716436f0$
Hola a todos,
necesito ayuda con este codigo:

<%
set CheckUser = Server.CreateObject("ADODB.Recordset")
CheckUser.ActiveConnection = dbpath
CheckUser.Source = "SELECT * FROM Members WHERE Username
= '" + Replace(CheckUser__myuser, "'", "''") + "' AND
Confirmed = TRUE"
CheckUser.CursorType = 0
CheckUser.CursorLocation = 2
CheckUser.LockType = 3
CheckUser.Open
CheckUser_numRows = 0
%>
<%
if checkUser.eof then
response.redirect"../login.asp?error=No encontrado"
End if

if lcase(checkUser("Username")) = lcase(request
("username")) then
if checkuser("mypass") = request("mypass") then
Response.Cookies("username") = checkuser
("Username")
Response.Cookies("numcol") = checkuser
("numcol")
session("user-logged") = "Yes"
session("user-level") = CheckUser
("ApvLevel")
if filewrite <> "" then %>
<!--#include file ="filewrite.asp">

El problema es que cuano accede a este codigo, me da un
error de Response.Cookies que es el siguiente:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'response.Cookies'


Me podeis ayudar? Gracias

Preguntas similares