para empezar me marca lo siguiente cuando ingreso algo
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/it/p8.asp, línea 17
Tipo de explorador:
Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.13) Gecko/20080311 Firefox/2.0.0.13
Página:
POST 39 bytes to /it/p8.aspDatos de POST:
nombre=aa&id_cat_espec=7&boton=Ingresar
Hora:
Martes, 15 de Abril de 2008, 12:45:00 p.m.
Código PHP:
<%
if request.Form("boton") <> "" then
Dim conn,db
Set conn = Server.CreateObject("ADODB.Connection")
Set db = Server.CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
SQL_INS = "INSERT INTO cat_area_cono (nombre, id_cat_espec) VALUES ("&request("nombre")&","&request("id_cat_espec")&")"
conn.Execute(SQL_INS) ---------------línea 17
end if
%>
.....
<!--INICIO INGRESAR TEMA-->
<%
dim rs2, j, rs3
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")
SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades ORDER BY nombre"
Set rs2 = conn.Execute(SQL)
j = 0
While Not rs2.EOF
j = j + 1
%>
<tr>
<td class="texto_1">
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0" class="borde_sky">
<form action="" method="post" name="formulario">
<tr>
<td colspan="3" align="center" class="titulo_sky"><%=rs2("nombre")%></td>
</tr>
<tr class="slim">
<td> </td>
<td colspan="2" align="center"> </td>
</tr>
<tr>
<td width="10"> </td>
<td colspan="2" align="center"><input name="nombre" type="text" class="texto_1" id="nombre" size="120" />
<input name="id_cat_espec" type="hidden" id="id_cat_espec" value="<%=rs2("id_cat_espec")%>" />
<input name="boton" type="submit" class="texto_2" id="boton" value="Ingresar" /></td>
</tr>
<%
SQL2 = "SELECT nombre, id_area_cono FROM cat_area_cono WHERE id_cat_espec = "&rs2("id_cat_espec")
set rs3 = conn.Execute(SQL2)
While Not rs3.EOF
%>
<tr class="slim">
<td> </td>
<td width="676"> </td>
<td align="center"> </td>
</tr>
<tr>
<td> </td>
<td><%=rs3("nombre")%></td>
<td width="42" align="center">
<a href="cat_area_cono_del.asp?id_area_cono=<%=rs3("id_area_cono")%>" title="Eliminar">
<img src="http://www.forosdelweb.com/images/delete.gif" width="14" height="14" border="0" />
</a>
</td>
</tr>
<%
rs3.MoveNext
Wend
rs3.Close
%>
<tr class="slim">
<td> </td>
<td> </td>
<td width="42" align="center"> </td>
</tr>
</form>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
<%
rs2.MoveNext
Wend
rs2.Close
%>
<!--FIN INGRESAR TEMA-->