Grabar en base de datos

JMG
11 de Diciembre del 2003
Tengo el siguiente codigo asp y html en una pagina, que es la que recibe los
datos de un formulario asp rellenado anteriormente. lo que quiero hacer es estos
datos meterlos dentro de una tabla de acces 2000. Como puedo hacerlo????
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>


scripter
11 de Diciembre del 2003
Por que no cambias a otra base de datos mejor.

Primero tienes que crear un ODBC para que te conectes a acces, ya que tengas el ODBC te concetas a la base de datos por el ODBC y le mandas un query de insercion

JMG
11 de Diciembre del 2003
como??? No se como se hace eso?? Me lo puede explicar alguien?