Tengo el siguiente codigo lo copia tal como estaba en internet, pero tengo un problema cuando le doy el numero de registro a buscar me marca el siguiente error:
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/troncob/MODIFICARUSUARIO.asp, line 13
<form action="Mod.asp" method="post">
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)
Page:
POST 6 bytes to /troncob/MODIFICARUSUARIO.asp
POST Data:
fId=29
cuando le pongo un registro que no existe de todas maneras me manda ese error, como estoy trabajando con dreamweaver no me muestra la forma en la vista de diseño tampoco, lo que necesito es que por medio de un formulario muestre los datos de una tabla y se puedan actualizar desde ese mismo formulario.
buscarusuario.asp
<form action="MODIFICARUSUARIO.asp" method="post">
<input type="text" name="fId">
<input type="submit" value="buscar"></form>
modificarusuario.asp
<%
Id=request.Form("fId") 'Rescatamos el id
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Mibase"
Set registros=Server.CreateObject("ADODB.Recordset")
registros.open "SELECT * from TRAFICOS where (numrep= '" & Id & "')",conn
If registros.EOF Then 'Vemos si existe el id
%>
<script>
alert("Este usuario no existe");
window.location = "BuscarUsuario.asp";
</script>
<%
Else
'Mostramos los datos de ese id en un formulario donde el id no se podrá modificar y el resto sí.
<form action="Mod.asp" method="post">
ID: <input type="text" readonly name="fId">
Clave: <input type="text" name="fC1">
Fecha: <input type="text" name="fC2">
factura: <input type="text" name="fC3">
<input type="submit" value="Modificar">
</form>
'C1,C2,C3 son tus otros 3 campos de la BBDD
End if
registros.close
Set registros=Nothing
conexion.close
Set conexion=Nothing
%>
mod.asp
<%
dim conexion,sql
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Mibase"
sql = "UPDATE TRAFICOS SET id='" & request.Form("fId") & "', cve_cte='" & request.Form("fC1") & "',"
sql = sql & "fecha_t='" & request.Form("fC2") & "',num_fac_t='" & request.Form("fC3") & "'"
sql = sql & " WHERE Id='" & request.form("fId") & "'"
conexion.execute sql
%>
<script>
alert("Los datos de este usuario han sido modificados con éxito");
window.location = "Tu_pagina.asp";
</script>
<%
End if
conexion.close
Set conexion=Nothing
%>