Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   ASP Clásico (http://www.forosdelweb.com/f15/)
-   -   ERROR: Pocos parámetros. Se esperaba 1 (http://www.forosdelweb.com/f15/error-pocos-parametros-esperaba-1-a-576238/)

omegafunky 15/04/2008 11:49
ERROR: Pocos parámetros. Se esperaba 1
 
Hola amigos tengo un problema con esta pagina y no hay modo que de con el error, me pueden hechar una mano, saludos

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>&nbsp;</td>
          <td colspan="2" align="center">&nbsp;</td>
        </tr>
        <tr>
          <td width="10">&nbsp;</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>&nbsp;</td>
          <td width="676">&nbsp;</td>
          <td align="center">&nbsp;</td>
        </tr>
        <tr>
          <td>&nbsp;</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>&nbsp;</td>
          <td>&nbsp;</td>
          <td width="42" align="center">&nbsp;</td>
        </tr>
    </form>
    </table>    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  
  
            <%
                rs2.MoveNext
                Wend
                rs2.Close
            %>

 <!--FIN INGRESAR TEMA--> 

i_e_s27 15/04/2008 11:55
Re: ERROR: Pocos parámetros. Se esperaba 1
 
Puede que me equivoque, pero creo que el problema estan en que repites dos veces esto:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")

EDIT: Osea, si el primer if es true, tienes que cerrar todo e igualar a Nothing. O poner esas lineas de conexion una sola y unica vez al comienzo.

Saludos!

AlZuwaga 15/04/2008 12:41
Re: ERROR: Pocos parámetros. Se esperaba 1
 
Normalmente ese error, que aparentemente es exclusivo de access, se da cuando un campo en la cláusula SELECT de la sentencia SQL no existe en la tabla (o está mal tipeado).
Verificá que todos los campos (y nombre de tablas por las dudas) estén correctamente escritos y realmente existan.

omegafunky 15/04/2008 12:48
Re: ERROR: Pocos parámetros. Se esperaba 1
 
pues la tabla y los nombres ta bienya ya los cheque muchas veces
http://img249.imageshack.us/img249/3265/tablair0.jpg

u_goldman 15/04/2008 13:05
Re: ERROR: Pocos parámetros. Se esperaba 1
 
Hazle un Response.Write a tu consulta, seguido de un Response.End, seguramente como te dijo AZ (:adios:) un dato numerico no esta llegando:

Código:

SQL_INS = "INSERT INTO cat_area_cono (nombre, id_cat_espec) VALUES ("&request("nombre")&","&request("id_cat_espec")&")"
Response.Write(SQL_INS)
Response.End()
Otra cosa que ahora estoy viendo...el valor que vas a insertar en el campo id_cat_espec no debe llevar comillas simples -es un dato numerico-.

Saludos

omegafunky 15/04/2008 13:12
Re: ERROR: Pocos parámetros. Se esperaba 1
 
bueno amigos pues ya lo resolvi de la siguiente manera y ya guarda y muestra y todo, muchas gracias por su ayuda

Código PHP:
        SQL_INS = "INSERT INTO cat_area_cono (nombre, id_cat_espec) VALUES ('"&Request("nombre")&"','"&Request("id_cat_espec")&"')" 


La zona horaria es GMT -6. Ahora son las 19:10.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.