Gracias de ante mano
.(este es el código ASP donde se deben guardar los datos en Access)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Response.Buffer = true
dim datosformato,rst
' Creamos la conexión a la base de datos sin DSN
set datosformato = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
datosformato.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datosformato.mdb")
sqltext = "SELECT * FROM orden_servicio"
rst.Open sqltext,datosformato,1,2
dim taller, vehiculo_num, serv_sol_num
taller = Request.Form("taller")
vehiculo_num = Request.Form("vehiculo_num")
marca = Request.Form("marca")
tipo = Request.Form("tipo")
modelo = Request.Form("modelo")
km = Request.Form("km")
serv_sol_num = Request.Form("serv_sol_num")
detalle_serv = Request.Form("detalle_serv")
if vehiculo_num = "" then
error = "Debe llenar numero de vehiculo."
Response.Write error
Response.End
end if
if taller ="" then
error = "Debe llenar taller."
else
error = "Debe llenar Numero de solicitud."
Response.Write error
Response.End
end if
'Si no hay campos vacíos, procedemos a ingresar los datos a la base de datos
rst.Addnew
rst("taller") = taller
rst("vehiculo_num") = vehiculo_num
rst("marca") = marca
rst("tipo") = tipo
rst("modelo") = modelo
rst("km") = km
rst("serv_sol_num") = serv_sol_num
rst("detalle_serv") = detalle_serv
rst.update
'guardamos los datos y mandamos un mensaje al usuario
Response.Write "el dato se ha ingresado se ha ingresado con exito"
%>
</body>
</html>
(el código de los FORMS donde el usuario debe se llenar los datos está en otro post (Grabar contenido en Base de Datos 2))
