Guardar datos

JMG
22 de Diciembre del 2003
Tengo el codigo que escribo a continuacion. Al rellenar un formulario asp se redireccionan los datos a la pagina que tiene el codigo que escribo aqui. Lo que quiero hacer es guardar los datos en la base de datos de acces 2000. Como puedo hacerlo. Que codigo tengo que poner???
Gracias
<HTML>
<BODY>
<H2><CENTER>Listas dinmicas dependientes</CENTER></H2>
<H3>Valores enviados</H3>

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
%>

<P>IdCategoria =
<%
codcategoria= Response.Write(Request.Form("Categorias")&"<br>")
%>
<P>IdProducto =
<%
codproducto= Response.Write(Request.Form("Productos")&"<br>")
%>
<hr>
unidaes = <%vuni=request.form("textunidades")%>
<%=vuni%>
Total * 3= <%= (vuni * 3)%>
Categoria = <%vcat=request.form("Categorias")%>
<%=vcat%>
<P>

<%
Dim oConn, rs, SQL, vproducto
vproducto= Trim(Request.Form("Productos"))
vproducto = Replace(vproducto,"'","''")

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbjose.mdb")


sql = "SELECT * FROM tbsku WHERE clng(Orden) ="&clng(vproducto)
rs.Open SQL, oConn
%>
<%
if rs.fields("orden")= 1001 then
vDescripcion= ""
else
vDescripcion =rs.Fields("Descripcion").value
end if
%>

<%= vDescripcion%>

<%
'set rs2= Server.Createobject("ADODB.Recordset")
'rs2.CursorType = adOpenKeyset
'rs2.LockType = adLockOptimistic
'rs2.Open "tbdatos", Oconn
'rs2.movefirst
'
'do While not rs2.eof
'
'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update
'end if

'rs2.Movenext
'loop

'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update

'end if
'rs2.close
%>






<%
'Limpiamos objetos
'rs.Close
'set rs=nothing
oConn.Close
set oConn=nothing
%>
</BODY>
</HTML>


JMG
22 de Diciembre del 2003
Nadie sabe nada de esto??