Ayuda con asp
Publicado por Ringo (9 intervenciones) el 12/08/2006 01:29:24
Estoy realizando una pagina y quiero hacer una consulta a la base de datos y que me muestra los tados en un formulario pero me marca un error. El error que marca es el siguiente
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression '* tblUsuarios WHERE Id_Usuario = 1'.
/cventura/Prueba/ModificarUsuario.asp, line 10
La parte de abajo es el codigo del archivo
-------------------------------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include File="Conexion.asp"-->
<%
Dim SQLGetPeople, rsPeople
dim m
m = Request.QueryString("Rec")
SET rsPeople = Server.CreateObject("ADODB.RecordSet")
SQLGetPeople = "SELECT * tblUsuarios WHERE Id_Usuario = " & m
rsPeople.open SQLGetPeople,conn
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Actualizacion de datos</title>
<link href="sitestyles.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style8 {font-size: 16px}
.style9 {font-size: 18px}
-->
</style>
</head>
<body>
<p> </p>
<p align="center"><span class="style2 style8">The Softball Match... Edit Mode </span><br />
</p>
<form name="ActualizaUsuario" method="post" action="ActualizarUsuario.asp?Rec=<%=Request.QueryString("Rec") %>">
<table width="400" border="0" align="center" cellspacing="1" bgcolor="lightsteelblue">
<tr valign="middle" class="style4">
<td height="21" align="left" bgcolor="#FFFFFF" colspan="2"> Actualizar Informacion... </td>
</tr>
<tr valign="middle" class="DataGridHeader">
<td width="200" background="Images/bgtr.gif" bgcolor="#FFFFFF" height="21" align="left"> Campo</td>
<td background="Images/bgtr.gif" bgcolor="#FFFFFF" height="21" align="left"> Textos</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Nombre:</td>
<td height="21" align="left">
<input name="txtNombre1" type="Text" class="tablerowdata" id="txtNombre1" size="50" value="<%=rsPeople("Nombre") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Empresa:</td>
<td height="21" align="left">
<input name="txtEmpresa1" type="Text" class="tablerowdata" id="txtEmpresa1" size="50" value="<%=rsPeople("Empresa") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Email:</td>
<td height="21" align="left">
<input name="txtEmail1" type="text" class="tablerowdata" id="txtEmail1" size="30" value="<%=rsPeople("Email") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Usuario:</td>
<td height="21" align="left">
<input name="txtUsuario1" type="text" class="tablerowdata" id="txtUsuario1" size="15" value="<%=rsPeople("Usuario") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Contraseña:</td>
<td height="21" align="left">
<input name="txtContrasenia1" type="text" class="tablerowdata" id="txtContrasenia1" size="15" value="<%=rsPeople("Pass") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Actualizar</td>
<td height="21" align="left">
<input name="Submit" type="submit" value="Guardar" />
</td>
</tr>
</table>
</form>
<div align="center" class="style2 style8">Guardar Cambios.... </div>
</body>
<%
rsPeople.Close
SET rsPeople = Nothing
conn.close
SET conn = Nothing
%>
</html>
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression '* tblUsuarios WHERE Id_Usuario = 1'.
/cventura/Prueba/ModificarUsuario.asp, line 10
La parte de abajo es el codigo del archivo
-------------------------------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include File="Conexion.asp"-->
<%
Dim SQLGetPeople, rsPeople
dim m
m = Request.QueryString("Rec")
SET rsPeople = Server.CreateObject("ADODB.RecordSet")
SQLGetPeople = "SELECT * tblUsuarios WHERE Id_Usuario = " & m
rsPeople.open SQLGetPeople,conn
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Actualizacion de datos</title>
<link href="sitestyles.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style8 {font-size: 16px}
.style9 {font-size: 18px}
-->
</style>
</head>
<body>
<p> </p>
<p align="center"><span class="style2 style8">The Softball Match... Edit Mode </span><br />
</p>
<form name="ActualizaUsuario" method="post" action="ActualizarUsuario.asp?Rec=<%=Request.QueryString("Rec") %>">
<table width="400" border="0" align="center" cellspacing="1" bgcolor="lightsteelblue">
<tr valign="middle" class="style4">
<td height="21" align="left" bgcolor="#FFFFFF" colspan="2"> Actualizar Informacion... </td>
</tr>
<tr valign="middle" class="DataGridHeader">
<td width="200" background="Images/bgtr.gif" bgcolor="#FFFFFF" height="21" align="left"> Campo</td>
<td background="Images/bgtr.gif" bgcolor="#FFFFFF" height="21" align="left"> Textos</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Nombre:</td>
<td height="21" align="left">
<input name="txtNombre1" type="Text" class="tablerowdata" id="txtNombre1" size="50" value="<%=rsPeople("Nombre") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Empresa:</td>
<td height="21" align="left">
<input name="txtEmpresa1" type="Text" class="tablerowdata" id="txtEmpresa1" size="50" value="<%=rsPeople("Empresa") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Email:</td>
<td height="21" align="left">
<input name="txtEmail1" type="text" class="tablerowdata" id="txtEmail1" size="30" value="<%=rsPeople("Email") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Usuario:</td>
<td height="21" align="left">
<input name="txtUsuario1" type="text" class="tablerowdata" id="txtUsuario1" size="15" value="<%=rsPeople("Usuario") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Contraseña:</td>
<td height="21" align="left">
<input name="txtContrasenia1" type="text" class="tablerowdata" id="txtContrasenia1" size="15" value="<%=rsPeople("Pass") %>">
</td>
</tr>
<tr valign="middle" class="tablerowdata" bgcolor="#FAFAFA">
<td height="21" align="left"> Actualizar</td>
<td height="21" align="left">
<input name="Submit" type="submit" value="Guardar" />
</td>
</tr>
</table>
</form>
<div align="center" class="style2 style8">Guardar Cambios.... </div>
</body>
<%
rsPeople.Close
SET rsPeople = Nothing
conn.close
SET conn = Nothing
%>
</html>
Valora esta pregunta
0