asp error

[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