
22/08/2002, 17:14
|
 | | | Fecha de Ingreso: julio-2002 Ubicación: Super lejos
Mensajes: 364
Antigüedad: 22 años, 10 meses Puntos: 1 | |
Re: NECESITO AYUDA MUY URGENTE!! ayudenme por favor!!! mira, esa bien, pero hay otra mas facil todavia y es la que uso yo.
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("base_dato.mdb"))
sqltext = "SELECT * FROM tu_tabla"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
var1 = Request.Form("var1")
var2 = Request.Form("var2")
.
.
.
'En el siguiente codigo Comprebo si estan todos mis campos llenos
if var1 = "" or var2= "" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("var1") = var1
rst("var2") = var2
.
.
rst.update
%>
Es para mi gusto el mas facil de usar...
pruebalo y me das una opinion
atte SPLASHMAN |