asp error

[alberto_gc]

<%
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><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>