This is a multi-part message in MIME format.

------=_NextPart_000_00A1_01C20ADE.154731C0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Ulises el problema esta en que el response.form lo haces de  "codigo" y 
lo deberias hacer de "selemp"
asi
set codigo1=3DRequest.Form("selemp")
selemp=3Dal nombre del control listbox
porque le ponias "codigo"?



  ----- Original Message -----
  From: Ulises G. Soso
  To: ADO .Net en Espa=F1ol
  Sent: Friday, May 31, 2002 3:53 PM
  Subject: [ado_dotnet_espanol] Re: Microsoft OLE DB Provider for ODBC 
Drivers error '80040e14'


  he provado con el metodo Post y me tira el mismo error, por que?
  gracias nuevamente
    ----- Original Message -----
    From: carles@v...
    To: ADO .Net en Espa=F1ol
    Sent: Friday, May 31, 2002 3:29 AM
    Subject: [ado_dotnet_espanol] Re: Microsoft OLE DB Provider for ODBC 
Drivers error '80040e14'


    Debe de ser el method=3D"post" prueba
    <form method=3D"Post" action=3D"concur.asp" name=3D"fempre">

    aver si te sirve


      ----- Original Message -----
      From: Ulises G. Soso
      To: ADO .Net en Espa=F1ol
      Sent: Friday, May 31, 2002 3:37 AM
      Subject: [ado_dotnet_espanol] Microsoft OLE DB Provider for ODBC 
Drivers error '80040e14'


      Alguien puede decirme donde me estoy equivocando o por que esto no 
funciona?
      Desde ya 1000Gracias.

      Tengo un formulario (el cual si funciona) en el que lleno una 
lista
      desplegable por medio de un base de datos en access, este es el 
c=F3digo del
      formulario:

      <form method=3D"get" action=3D"concur.asp" name=3D"fempre">
        <table width=3D"100%" border=3D"0">
          <tr>
            <td colspan=3D"3"><b><font color=3D"#FFFFFF" size=3D"5" 
face=3D"Arial,
      Helvetica, sans-serif">Seleccione
              la Empresa </font></b>
              <select name=3D"selemp">
                <option value=3D"0"></option>
                <% do until rs.eof%>
                <option 
value=3D"<%response.write(rs.fields("nro_conc"))%>">
                <%response.write(rs.fields("empresa"))%>
                </option>
                <%rs.movenext
       loop
       end if%>
              </select>
            </td>
          </tr>
          <tr>
            <td width=3D"34%">
              <div align=3D"center">
                <input type=3D"submit" name=3D"Submit" value=3D"Ver 
Concurso"
      onClick=3D"javascript:datos();">
              </div>
            </td>
            <td width=3D"29%">
              <div align=3D"center">
                <input type=3D"reset" name=3D"Submit2" 
value=3D"Limpiar">
              </div>
            </td>
            <td width=3D"37%">&nbsp; </td>
          </tr>
        </table>
        </form>

      Desde este form paso a otra pagina (tambien ASP), en el que tengo 
que hacer
      un filtro de otra tabla de la misma base de datos, este es el 
codigo:

      <%
       set codigo1=3DRequest.form("codigo")

       set my_conn=3D Server.CreateObject("ADODB.Connection")
       my_Conn.Open ConnString
       StrSql =3D "SELECT acreedores.* FROM acreedores WHERE 
acreedores.nro_concurso
      <> 0 "
       StrSql =3D StrSql & " and acreedores.nro_concurso =3D " & codigo1
        StrSql =3D StrSql & "ORDER BY fechas.fecha"
       StrSql =3D StrSql & ";"

      esta es la linea 63

       set rs =3D my_conn.Execute(StrSql)
       On Error Resume Next

       RS.movefirst
       do until rs.eof
       cont=3Dcont+1
       rs.movenext
       loop

       if cont > 0  then

       RS.movefirst
       do until rs.eof
      %>
      <table width=3D"95%" border=3D"2" cellspacing=3D"2" 
cellpadding=3D"5"
      class=3D"TextoPlano" bordercolor=3D"#CCCC99">
        <tr>
          <td width=3D"92%"><b><font color=3D"#FFFFFF" face=3D"Times New 
Roman, Times,
      serif" size=3D"3"><b>
            <%Response.Write(rs.fields("concepto"))%>
            </b></font></b></td>
          <td bgcolor=3D"#CC0000" width=3D"8%">
            <div align=3D"center"><font color=3D"#FFFFFF" face=3D"Times 
New Roman,
      Times, serif" size=3D"3"><b>
              <%Response.Write(rs.fields("fecha"))%>
              </b></font></div>
          </td>
        </tr>
      </table>
      <%
      rs.movenext
      loop
      %>
      <form name=3D"form1" method=3D"post" action=3D"acred.asp">
        <div align=3D"center">
          <input type=3D"submit" name=3D"Submit" value=3D"Ver 
Acreedores">
        </div>
      </form>
      <p>
      <%
      else
      %>
      </p>
      <table width=3D"95%" border=3D"1">
        <tr>
          <td bgcolor=3D"#006666">
            <div align=3D"center"><b><font color=3D"#FFFFFF" size=3D"5" 
face=3D"Arial,
      Helvetica, sans-serif">
              </font></b> <b><font color=3D"#FFFFFF" size=3D"5" 
face=3D"Arial,
      Helvetica, sans-serif">Las
              Fechas del Concurso no han sido Cargadas</font></b></div>
          </td>
        </tr>
      </table>
      <p>
      <%
      end if
      %>

      Pues cuando se corre esta p=E1gina me da el siguiente error:

      Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

      [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis 
(falta
      operador) en la expresi=F3n de consulta 'acreedores.nro_concurso 
<> 0 and
      acreedores.nro_concurso =3D'.

      /concur.asp, line 63

      Quye puede estar pasando? ya que aparentemente a los datos los 
pasa, o al
      menos eso creo.

      Gracias nuevamente


      ---
      Usted est=E1 suscrito a ado_dotnet_espanol como:
      carles@v...
      Para darse de baja, env=EDe un mensaje en blanco a
      %%email.unsub%%
      --- 
    ---
    Usted est=E1 suscrito a ado_dotnet_espanol como:
    usoso@c...
    Para darse de baja, env=EDe un mensaje en blanco a
    %%email.unsub%%
    --- 
  ---
  Usted est=E1 suscrito a ado_dotnet_espanol como:
  carles@v...
  Para darse de baja, env=EDe un mensaje en blanco a
  %%email.unsub%%
  --- Change your mail options at http://p2p.wrox.com/manager.asp or to 
unsubscribe send a blank email to