
03/11/2004, 09:42
|
| | Fecha de Ingreso: noviembre-2004
Mensajes: 496
Antigüedad: 20 años, 6 meses Puntos: 0 | |
codigo de insercion de registros en asp hola ojala me ayuden me sale el siguiente error:
Error de compilación de Microsoft JScript error '800a03ec'
Se esperaba ';'
/pagina2/1.asp, line 83
Dim oConn,strSQL,objRS
----^
este es mi pagina asp (es un formulario)que llama a otra pagina para que inserte registros a un BD henry en access. y ala vez ase una consulta.
<html>
<head>
<title>matricula</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
background-color: #6699FF;
}
-->
</style></head>
<body>
<form action="procesar.asp" method="post">
<table width="443">
<!--DWLayoutTable-->
<tr>
<td width="141" height="12"></td>
<td width="4"></td>
<td width="1"></td>
<td width="256"></td>
<td width="10"></td>
</tr>
<tr>
<td height="40"></td>
<td></td>
<td colspan="2" valign="top"><strong>FORMULARIO DE ADMISION</strong></td>
<td></td>
</tr>
<tr>
<td height="12"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="40" colspan="5" valign="top"><strong>Utilice el siguiente formulario para realizar el primer contacto con nosotros a fin de solicitar la separacion de la matricula. </strong></td>
</tr>
<tr>
<td height="21" valign="top">Nombre:</td>
<td></td>
<td> </td>
<td rowspan="2" valign="top"><input type="text" name="nombre" size="40" maxlength="30"></td>
<td></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="22" valign="top">Apellidos:</td>
<td></td>
<td></td>
<td valign="top"><input type="text" name="apellidos" size="40" maxlength="30"></td>
<td></td>
</tr>
<tr>
<td height="22"> </td>
<td></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<input type="submit" name="accion" value="Grabar">
<input type="reset" name="Submit" value="Restablecer">
</form>
<hr>
<strong> PERSONAS QUE YA SE REGISTRARON</strong>
<%
Dim oConn,strSQL,objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("henry.mdb"))
strSQL = "SELECT Nombre, Apellidos FROM tabla1"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
</body>
</html> |