no se muestran registros solicitados

[Cameron_2006]

Hola a todos y en especial a aquel que está leyendo este problema.

Estoy haciendo un sistema de registro de usuarios bastante sencillo, sólo son dos tipos de usuarios:

usuario 1) Muestra una página con todos sus datos y a la vez puede subir una imagen (Funciona OK)

usuario 2) Lo mismo pero no existe el formulario de subir imágenes. (este no funciona correctamente ya que me lleva a la página en cuestión pero no muestra ningún registro)

Va hacia la misma tabla sólo que no debe recuperar algunos datos porque estos se encuentran vacios.

El código es simplisimo, pero no se lo que le pasa

Aquí muestro lo más resaltante del código, y muchas gracias de antemano.

Set RS = Server.CreateObject( "ADODB.Recordset" )
sql = "SELECT cod_usuario, txt_correo, ...... From .... where mis.tablas and a.txt_correo='"&usuario&"';"

set rs = conexion.Execute(SQL)

IF NOT RS.EOF THEN

variables (tablas)
...
rs.close
%>

<form id="prueba" name="prueba" action="modificar_datos.asp">
<input name="cod_usuario" type="hidden" value="<%=cod_usuario%>" />
<input type="text" name="txt_nombre" id="txt_nombre" value="<%=(txt_nombre)%>" />
.....

<input name="usuario" type="hidden" value="<%=usuario%>">

<input name="actualizardatos" type="hidden" value="1">
<input type="submit" name="enviar" id="enviar" value="Modificar Datos" />

</form>

<%
end if
%>

Llevo 2 días quitando y poniendo cosas nada...

[Adler]

Hola

A simple visa esto es lo que llama la atención

where mis.tablas and a.txt_correo='"&usuario&"';"

es estraño que no te marque error ya que te falta un parámetro. Quizás este pretendiendo hacer esto

where mis.tablas = '"&usuario&"' and a.txt_correo='"&usuario&"';"

Suerte

[Cameron_2006]

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

[Cameron_2006]

Listo! Gracias, había puesto mal la variable que rescata el usuario mira que lo vi sopotocientas veces, gracias Adler.