calendario

[alberto_gc]

<%
fecha = request.form("firstinput")

Dim oConn,strSQL,objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\mibase.mdb")

strSQL = "insert into almacen (folio, firstinput, departamento, cantidad, unidadm, descripcion, uso, existenciaal, precioc, preciof, observaciones, secondinput) values ('" & Request.Form("folio") & "','" & Request.Form('#"fecha"#') & "','" & 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("pagina.asp")

%>

asi quedaria