asp error

alberto_gc · #1 (**permalink**) 29/09/2008, 17:23

hola saludos por el buen foro que tienen .
bueno tengo un problema en el desarrollo de una pagina asp en la cual tengo un formulario que se debe yenar despues si el usuario le da clik en el boton insertar y estos datos se graban en una tabla que se encuentra ahi mismo pero no me funciona ya que anteriormente hice algo chico y excelente pero en esta pagina no me marca

error línea 154, columna 4
Dim oConn, strSQL, objRS

del siguiente codigo esta pagina se llama requ.asp

Código:

<form action="requis.asp" method="POST" enctype="multipart/form-data" name="sampleform" class="Estilo2" id="form1" onsubmit="MM_validateForm('textfield2','','R','textfield','','R','label','','R','label5','','R','label8','','R','label9','','R','label6','','R','textarea','','R','label7','','R','label4','','R');return document.MM_returnValue">
  <table width="200" border="0">
    <tr>
      <td height="94">&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td><strong>N&ordm;Folio</strong></td>
      <td><strong>
        <input type="text" name="folio" value="0001" size="20"maxlength="30" />
      </strong></td>
    </tr>
    <tr>
      <td height="45"><small><a href="javascript:showCal('Calendar1')" class="Estilo4"><strong>Fecha/Pedido:</strong></a></small></td>
      <td><input type="text" name="firstinput"  size="20" maxlength="30"/></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="56"><span class="Estilo3">Departamento:</span>
        <label> </label></td>
      <td><input type="text" name="departamento" size="20" maxlength="30" /></td>
      <td><label><span class="Estilo3">Cantidad:</span></label></td>
      <td><span class="Estilo4"><strong>
        <input type="text" name="cantidad" size="20" maxlength="30" />
      </strong></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="48"><span class="Estilo4"><strong>Unidad/Medida:</strong></span></td>
      <td><label>
        <input name="unidadm" name="descripcion" type="text" size="20" maxlength="30"/>
      </label></td>
      <td><span class="Estilo3">Descripcion:</span></td>
      <td><span class="Estilo3">
        <input name="descripcion" type="text"  size="20" maxlength="30"/>
      </span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="55"><span class="Estilo3">Uso:</span></td>
      <td><span class="Estilo3"><span class="Estilo4">
        <input type="text" name="uso" size="20" maxlength="30" />
      </span></span></td>
      <td><span class="Estilo3"><span class="Estilo4">Existencias/Almacen:</span></span></td>
      <td><span class="Estilo4"><strong>
        <input name="existenciaal" type="text" size="20" maxlength="30" />
      </strong></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="49"><span class="Estilo4"><strong>Prec/Cotizacion:</strong></span></td>
      <td><span class="Estilo5">
        <input type="text" name="precioc" value="$" size="20" maxlength="30" />
      </span></td>
      <td><span class="Estilo4"><span class="Estilo3">Precio/Final:</span></span></td>
      <td><span class="Estilo4"><span class="Estilo5">
        <input type="text" name="preciof" value="$" size="20" maxlength="30" />
      </span></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="63">&nbsp;</td>
      <td><span class="Estilo4"><strong>Observaciones:</strong></span></td>
      <td><span class="Estilo4">
        <input  type="text" name="observaciones"  size="20" maxlength="30" />
      </span></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td><span class="Estilo3"><small><a href="javascript:showCal('Calendar2')" class="Estilo4"><strong>Fecha/Entrega:</strong></a></small></span></td>
      <td><span class="Estilo3"><span class="Estilo4">
        <input name="secondinput" type="text"  value="Mm/Dd/Aa" size="20" maxlength="30"/>
      </span></span></td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <tr>
    <td><span class="Estilo3">
      <input type="submit" name="accion" value="Insertar" />
    </span></td>
  </tr>
</form>
<hr>
     <% 
    Dim oConn, strSQL, objRS linea 154 donde me marca errror
    
    Set oConn = Server.CreateObject("ADODB.Connection") 
    oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb") 
    
   strSQL = "SELECT folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput, FROM almacen" 
   Set objRS = oConn.Execute(strSQL)
     
%> 
      <table width="200" border="0" cellpadding="10" cellspacing="0">
        <tr bgcolor="#FF0000">
          <td><strong>folio</strong></td>
          <td><strong>Fecha_pedido</strong></td>
          <td><strong>Departamento</strong></td>
          <td><strong>Cantidad</strong></td>
          <td><strong>Unidad_medida</strong></td>
          <td><strong>Descripcion</strong></td>
          <td><strong>Uso</strong></td>
          <td><strong>Existencia_almacen</strong></td>
          <td><strong>Precio_cotizado</strong></td>
          <td><strong>Precio_final</strong></td>
          <td><strong>Observaciones</strong></td>
          <td><strong>Fecha_entrega</strong></td>
        </tr>
        <%            

   while (not objRS.Eof) 
      Response.Write("<tr><td>&nbsp;" & objRS("folio") & "</td><td>&nbsp;" & objRS("firstinput") & "&nbsp;</td><td>&nbsp;" & objRS("departamento") & "&nbsp;</td> <td>&nbsp;" & objRS("cantidad") & "&nbsp;</td><td><td>&nbsp;" & objRS("unidadm") & "&nbsp;</td><td>&nbsp;" & objRS("descripcion") & "&nbsp;</td><td>&nbsp;" & objRS("Uso") & "&nbsp;</td><td>&nbsp;" & objRS("existenciaal") & "&nbsp;</td><td>&nbsp;" & objRS("precioc") & "&nbsp;</td>><td>&nbsp;" & objRS("preciof") & "&nbsp;</td><td>&nbsp;" & objRS("observaciones") & "&nbsp;</td><td>&nbsp;" & objRS("secondinput") & "&nbsp;</td></tr>") 
      objRS.MoveNext 
   wend 
    
   oConn.Close 
   set objRS = nothing 
   set oConn = nothing 
 
%>
</table>
      <p>&nbsp;</p>
      <label>
  <input name="accion" type="submit" id="accion" value="Enviar" />
  </label>
</p>

</html>
</body>

aqui la otra donde la manda a llamar para hacer el insert y esat se llama requis.asp<body>

Código:

<% 
    Dim oConn,strSQL, objRS 
    
    Set oConn = Server.CreateObject("ADODB.Connection") 

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb") 
    
   strSQL = "insert into almacen (folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput) values ('" & Request.Form("folio") & "','" & Request.Form("firstinput") & "','" & Request.Form("departamento") & "','" & Request.Form("cantidad") & "','" & Request.Form("unidadm") & "','" Request.Form("descripcion") & "','" & Request.Form("uso") & "','" & Request.Form("existenciaal") & "','" & Request.Form("precioc") & "','" & Request.Form("preciof") & "','" & Request.Form("observaciones") & "','" & Request.Form("secondinput") & "')"
   oConn.Execute(strSQL) 
   oConn.Close 
   set oConn = nothing 
     
   Response.Redirect("requ.asp")
%>
</body>
</html>

porfavor quioen me puede ayudar no encuetro mi error porfaaa

Julcar · #2 (**permalink**) 29/09/2008, 18:59

No le veo error critico a ese codigo.

alberto_gc · #3 (**permalink**) 29/09/2008, 19:29

bueno no sera un error critico pero soy novato y quisiera saber si un experto en asp pme podrai decir cual es el error q me esta marcando porfavor
gracias julcAR POR CONTESTAR

alberto_gc · #4 (**permalink**) 29/09/2008, 19:30

Cita:

Iniciado por julcar

no le veo error critico a ese codigo.

segun el error que me esta mandando por lo que entiendo es que no declaro variables pero si esta declaradas

mc_quake · #5 (**permalink**) 29/09/2008, 20:44

prueba creando un archivo unico con la conexion a la bd
<%
Dim oConn

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb")
%>

e incluyelo en el top de las paginas asp
puede que este generando algun tipo de conflicto la declaracion de variables globales

si no quieres hacer eso pon las variables

Dim oConn, strSQL, objRS al inicio de tus paginas asp despues del <%@LANGUAGE="VBSCRIPT"%>

link que te puede orientar
http://www.soloasp.com.ar/vertexto.asp?txt=5

alberto_gc · #6 (**permalink**) 30/09/2008, 07:18

no entiendo al poner el codigo que supuestamente me digiste lo coloque pero me dice
que el @ debe ir en el inicio o me podrias decir exactamente dondeponerlo o como hacerlo con mi codigo que puse porfa

JuanRAPerez · #7 (**permalink**) 30/09/2008, 08:25

y el error es ????

sera que la has definido dos veces ¿?

alberto_gc · #8 (**permalink**) 30/09/2008, 08:53

Cita:

Iniciado por alberto_gc

hola saludos por el buen foro que tienen .
bueno tengo un problema en el desarrollo de una pagina asp en la cual tengo un formulario que se debe yenar despues si el usuario le da clik en el boton insertar y estos datos se graban en una tabla que se encuentra ahi mismo pero no me funciona ya que anteriormente hice algo chico y excelente pero en esta pagina no me marca

error línea 154, columna 4
Dim oConn, strSQL, objRS

del siguiente codigo esta pagina se llama requ.asp

Código:

<form action="requis.asp" method="POST" enctype="multipart/form-data" name="sampleform" class="Estilo2" id="form1" onsubmit="MM_validateForm('textfield2','','R','textfield','','R','label','','R','label5','','R','label8','','R','label9','','R','label6','','R','textarea','','R','label7','','R','label4','','R');return document.MM_returnValue">
  <table width="200" border="0">
    <tr>
      <td height="94">&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td><strong>N&ordm;Folio</strong></td>
      <td><strong>
        <input type="text" name="folio" value="0001" size="20"maxlength="30" />
      </strong></td>
    </tr>
    <tr>
      <td height="45"><small><a href="javascript:showCal('Calendar1')" class="Estilo4"><strong>Fecha/Pedido:</strong></a></small></td>
      <td><input type="text" name="firstinput"  size="20" maxlength="30"/></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="56"><span class="Estilo3">Departamento:</span>
        <label> </label></td>
      <td><input type="text" name="departamento" size="20" maxlength="30" /></td>
      <td><label><span class="Estilo3">Cantidad:</span></label></td>
      <td><span class="Estilo4"><strong>
        <input type="text" name="cantidad" size="20" maxlength="30" />
      </strong></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="48"><span class="Estilo4"><strong>Unidad/Medida:</strong></span></td>
      <td><label>
        <input name="unidadm" name="descripcion" type="text" size="20" maxlength="30"/>
      </label></td>
      <td><span class="Estilo3">Descripcion:</span></td>
      <td><span class="Estilo3">
        <input name="descripcion" type="text"  size="20" maxlength="30"/>
      </span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="55"><span class="Estilo3">Uso:</span></td>
      <td><span class="Estilo3"><span class="Estilo4">
        <input type="text" name="uso" size="20" maxlength="30" />
      </span></span></td>
      <td><span class="Estilo3"><span class="Estilo4">Existencias/Almacen:</span></span></td>
      <td><span class="Estilo4"><strong>
        <input name="existenciaal" type="text" size="20" maxlength="30" />
      </strong></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="49"><span class="Estilo4"><strong>Prec/Cotizacion:</strong></span></td>
      <td><span class="Estilo5">
        <input type="text" name="precioc" value="$" size="20" maxlength="30" />
      </span></td>
      <td><span class="Estilo4"><span class="Estilo3">Precio/Final:</span></span></td>
      <td><span class="Estilo4"><span class="Estilo5">
        <input type="text" name="preciof" value="$" size="20" maxlength="30" />
      </span></span></td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td height="63">&nbsp;</td>
      <td><span class="Estilo4"><strong>Observaciones:</strong></span></td>
      <td><span class="Estilo4">
        <input  type="text" name="observaciones"  size="20" maxlength="30" />
      </span></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td><span class="Estilo3"><small><a href="javascript:showCal('Calendar2')" class="Estilo4"><strong>Fecha/Entrega:</strong></a></small></span></td>
      <td><span class="Estilo3"><span class="Estilo4">
        <input name="secondinput" type="text"  value="Mm/Dd/Aa" size="20" maxlength="30"/>
      </span></span></td>
    </tr>
  </table>
  <p>&nbsp;</p>
  <tr>
    <td><span class="Estilo3">
      <input type="submit" name="accion" value="Insertar" />
    </span></td>
  </tr>
</form>
<hr>
     <% 
    Dim oConn, strSQL, objRS linea 154 donde me marca errror
    
    Set oConn = Server.CreateObject("ADODB.Connection") 
    oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb") 
    
   strSQL = "SELECT folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput, FROM almacen" 
   Set objRS = oConn.Execute(strSQL)
     
%> 
      <table width="200" border="0" cellpadding="10" cellspacing="0">
        <tr bgcolor="#FF0000">
          <td><strong>folio</strong></td>
          <td><strong>Fecha_pedido</strong></td>
          <td><strong>Departamento</strong></td>
          <td><strong>Cantidad</strong></td>
          <td><strong>Unidad_medida</strong></td>
          <td><strong>Descripcion</strong></td>
          <td><strong>Uso</strong></td>
          <td><strong>Existencia_almacen</strong></td>
          <td><strong>Precio_cotizado</strong></td>
          <td><strong>Precio_final</strong></td>
          <td><strong>Observaciones</strong></td>
          <td><strong>Fecha_entrega</strong></td>
        </tr>
        <%            

   while (not objRS.Eof) 
      Response.Write("<tr><td>&nbsp;" & objRS("folio") & "</td><td>&nbsp;" & objRS("firstinput") & "&nbsp;</td><td>&nbsp;" & objRS("departamento") & "&nbsp;</td> <td>&nbsp;" & objRS("cantidad") & "&nbsp;</td><td><td>&nbsp;" & objRS("unidadm") & "&nbsp;</td><td>&nbsp;" & objRS("descripcion") & "&nbsp;</td><td>&nbsp;" & objRS("Uso") & "&nbsp;</td><td>&nbsp;" & objRS("existenciaal") & "&nbsp;</td><td>&nbsp;" & objRS("precioc") & "&nbsp;</td>><td>&nbsp;" & objRS("preciof") & "&nbsp;</td><td>&nbsp;" & objRS("observaciones") & "&nbsp;</td><td>&nbsp;" & objRS("secondinput") & "&nbsp;</td></tr>") 
      objRS.MoveNext 
   wend 
    
   oConn.Close 
   set objRS = nothing 
   set oConn = nothing 
 
%>
</table>
      <p>&nbsp;</p>
      <label>
  <input name="accion" type="submit" id="accion" value="Enviar" />
  </label>
</p>

</html>
</body>

aqui la otra donde la manda a llamar para hacer el insert y esat se llama requis.asp<body>

Código:

<% 
    Dim oConn,strSQL, objRS 
    
    Set oConn = Server.CreateObject("ADODB.Connection") 

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb") 
    
   strSQL = "insert into almacen (folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput) values ('" & Request.Form("folio") & "','" & Request.Form("firstinput") & "','" & Request.Form("departamento") & "','" & Request.Form("cantidad") & "','" & Request.Form("unidadm") & "','" Request.Form("descripcion") & "','" & Request.Form("uso") & "','" & Request.Form("existenciaal") & "','" & Request.Form("precioc") & "','" & Request.Form("preciof") & "','" & Request.Form("observaciones") & "','" & Request.Form("secondinput") & "')"
   oConn.Execute(strSQL) 
   oConn.Close 
   set oConn = nothing 
     
   Response.Redirect("requ.asp")
%>
</body>
</html>

porfavor quioen me puede ayudar no encuetro mi error porfaaa

Bueno hloa juaperez este es el codigo pero no puedoteando ayudame en la estoy kje

JuanRAPerez · #9 (**permalink**) 30/09/2008, 09:17

error línea 154, columna 4
Dim oConn, strSQL, objRS

y el error que envia es de ¿?

alberto_gc · #10 (**permalink**) 30/09/2008, 09:25

me dice que estan mal la variables que no las utilizo pero si las estoy utiliano no entiendo

alberto_gc · #11 (**permalink**) 30/09/2008, 09:31

estoy utilizando IIS,access,y dreamweaver a eso te refieres

Shiryu_Libra · #12 (**permalink**) 30/09/2008, 11:02

... hagamos una prueba...

comenta las declaratorias de variables...

Código ASP:

Ver original'Dim oConn, strSQL, objRS

intentalo nuevamente y al salir el error pegalo como sale en el navegador

no estas utilizando el comando

Código ASP:

Ver originalOption Explicit

o si???

alberto_gc · #13 (**permalink**) 30/09/2008, 11:08

el comando que me pusiste no lo estoy ocupando

alberto_gc · #14 (**permalink**) 30/09/2008, 11:13

<%
Dim oConn, strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\canteras.mdb")

strSQL = "SELECT folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput, FROM almacen"
Set objRS = oConn.Execute(strSQL)

%>
<table width="200" border="0" cellpadding="10" cellspacing="0">
<tr bgcolor="#FF0000">
<td>folio</td>
<td>Fecha_pedido</td>
<td>Departamento</td>
<td>Cantidad</td>
<td>Unidad_medida</td>
<td>Descripcion</td>
<td>Uso</td>
<td>Existencia_almacen</td>
<td>Precio_cotizado</td>
<td>Precio_final</td>
<td>Observaciones</td>
<td>Fecha_entrega</td>
</tr>
<%

while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("folio") & "</td><td> " & objRS("firstinput") & " </td><td> " & objRS("departamento") & " </td> <td> " & objRS("cantidad") & " </td><td><td> " & objRS("unidadm") & " </td><td> " & objRS("descripcion") & " </td><td> " & objRS("Uso") & " </td><td> " & objRS("existenciaal") & " </td><td> " & objRS("precioc") & " </td>><td> " & objRS("preciof") & " </td><td> " & objRS("observaciones") & " </td><td> " & objRS("secondinput") & " </td></tr>")
objRS.MoveNext
wend

oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
 
<label>
<input name="accion" type="submit" id="accion" value="Enviar" />
</label>

alberto_gc · #15 (**permalink**) 30/09/2008, 11:21

Cita:

Iniciado por Shiryu_Libra

... hagamos una prueba...

comenta las declaratorias de variables...

Código ASP:

Ver original'Dim oConn, strSQL, objRS

intentalo nuevamente y al salir el error pegalo como sale en el navegador

no estas utilizando el comando

Código ASP:

Ver originalOption Explicit

o si???

ahora me aparece este errror

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] La instrucción SELECT incluye una palabra reservada, le falta un argumento o está mal escrito, o bien los signos de puntuación no son correctos.
/prcticas webc/requ.asp, línea 157
lo que hice es hacer una nueva pagina de asp y copie todo el codigo que tenia en el anterior y me dio como resultado este error

Shiryu_Libra · #16 (**permalink**) 30/09/2008, 11:22

no me habia percatado, pero por que tienes la base de datos en la RAIZ del disco????

ademas tiene sus permisos de escritura correctos???

has intentado con este tipo de cadena de conexion???

Código ASP:

Ver originalDim oConn, strSQL, objRS 
    
    Set oConn = Server.CreateObject("ADODB.Connection") 
    oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\canteras.mdb") 
    
strSQL = "SELECT folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput FROM almacen" 
   Set objRS = oConn.Execute(strSQL)

por ultimo, intentaste comentando la declaracion de variables??

ejecuta, tu sentencia una ves realizado los cambios, y el error que te despliegue anexalo aqui

anexo... no habia mirado esta coma al final de los campos

Cita:

secondinput,

si eliminas esto, funcionara todo... es lo mas seguro

alberto_gc · #17 (**permalink**) 30/09/2008, 11:34

Cita:

Iniciado por Shiryu_Libra

no me habia percatado, pero por que tienes la base de datos en la RAIZ del disco????

ademas tiene sus permisos de escritura correctos???

has intentado con este tipo de cadena de conexion???

Código ASP:

Ver originalDim oConn, strSQL, objRS 
    
    Set oConn = Server.CreateObject("ADODB.Connection") 
    oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\canteras.mdb") 
    
strSQL = "SELECT folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput FROM almacen" 
   Set objRS = oConn.Execute(strSQL)

por ultimo, intentaste comentando la declaracion de variables??

ejecuta, tu sentencia una ves realizado los cambios, y el error que te despliegue anexalo aqui

anexo... no habia mirado esta coma al final de los campos
si eliminas esto, funcionara todo... es lo mas seguro

jajajja

si es cierto ando buskando otra cosas y todo era por una simple coma grax una cosa mas puedo

alberto_gc · #18 (**permalink**) 30/09/2008, 13:46

gracias shiru_libra adios tema cerrado