Alguien me puede explicar por favor cual de estas dos formas de grabar en una base es mejor o la mas comoda, no se ,,,,,:::
' Dim u_acceso, t_acceso, desde, fecha_top, sin_fecha, obs, chk
' Dim correcto
' Dim objConn, rs, SQL
'
' u_acceso=Request.Form("u_acceso")
' t_acceso=Request.Form("t_acceso")
' desde=Request.Form("desde")
' fecha_top=Request.Form("fecha_top")
' sin_fecha = Request.Form("chk")
'
'if sin_fecha = "on" then
'sin_fecha = True
'else
'sin_fecha = False
'end if
' obs=Request.Form("obs")
%>
<!--#INCLUDE FILE="../biblioteca/func_redirec.inc"-->
<%
' SQL="INSERT INTO tbl_acceso (u_acceso, t_acceso, desde, fecha_top, sin_fecha, obs)"
' SQL=SQL & " Values ('"&u_acceso&"', '"&t_acceso&"', '"&desde&"', '"&fecha_top&"', '"&sin_fecha&"', '"&obs&"')"
' oConn.Execute(SQL)
'NUEVO CODIGO
varu_acceso = request.form("u_acceso")
vart_acceso = Request.Form("t_acceso")
vardesde = Request.Form("desde")
varfecha_top = request.form("fecha_top")
varchk = Request.Form("chk")
varobs = Request.Form("obs")
if varchk = "on" then
varchk = True
else
varchk = False
end if
' Creamos la conexión a la base de datos sin DSN
set con = Server.CreateObject("ADODB.Connection")
strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info/info_task.mdb")
con.Open strcon
set rs = CreateObject("ADODB.RecordSet")
' Actualiza la tabla
txtSql = "Select * FROM tbl_acceso"
rs.Open txtSql,con,3,3
rs.AddNew
rs("u_acceso") = varu_acceso
rs("t_acceso") = vart_acceso
rs("desde") = vardesde
rs("fecha_top") = varfecha_top
rs("no_date") = varchk
rs("obs") = varobs
rs.update
********************************************
Gracias .....
