Gracias Adler, no se, mira el usuario es el correo electrónico y eso le hago un response.write y lo rescata perfectamente, tal vez lo expresé mal cuando lancé el problema, te copio el query para que lo veas mejor:
Set RS = Server.CreateObject( "ADODB.Recordset" )
sql = "SELECT a.cod_usuario,"&_
"b.cod_tipousuario,"&_
"b.txt_tipousuario,"&_
"a.txt_correo,"&_
"a.txt_clave,"&_
"a.txt_nombre_inmo,"&_
"a.txt_nombreresponsable,"&_
"a.txt_apellidos_responsable,"&_
"a.txt_direccion,"&_
"a.txt_telefono,"&_
"a.txt_cp,"&_
"a.cod_provincia,"&_
"c.txt_provincia,"&_
"a.newletter,"&_
"a.fecha_registro,"&_
"a.usuario_activo "&_
"FROM m_usuarios a, t_tipousuario b, m_provincias c "&_
"WHERE a.cod_tipousuario=b.cod_tipousuario "&_
"and a.cod_provincia=c.cod_provincia "&_
"and a.txt_correo='"&usuario&"';"
set rs = conexion.Execute(SQL)
IF NOT RS.EOF THEN
cod_usuario=rs("cod_usuario")
cod_tipousuario=rs("cod_tipousuario")
txt_tipousuario=rs("txt_tipousuario")
txt_correo=rs("txt_correo")
txt_clave=rs("txt_clave")
txt_nombre_inmo=rs("txt_nombre_inmo")
txt_nombreresponsable=rs("txt_nombreresponsable")
txt_apellidos_responsable=rs("txt_apellidos_respon sable" )
txt_direccion=rs("txt_direccion")
txt_telefono=rs("txt_telefono" )
txt_cp=rs("txt_cp")
cod_provincia=rs("cod_provincia")
txt_provincia=rs("txt_provincia")
newletter=rs("newletter")
fecha_registro=rs("fecha_registro")
if rs.Fields("newletter")= false then
newletter=""
else
newletter="checked"
end if
RS.Close
....
Ya hoara viene el formulario....
y teminamos con
<%
end if
%>
Como mencioné, son 2 tipos de usuarios (particular y profesional) el profesional funciona perfecto y es lo mismo.
Gracias de nuevo por tu atención y ayuda
