TENGO UNA BASE DE DATOS DONDE GUARDO DATOS, PERO EN REALIDAD REALIZA TODO SIN NINGUN ERROR APARENTE, PERO EN REALIDAD NO GUARDA NINGUN DATO SOLO CREA EL REGISTRO NUEVO CON EL ID Y NADA MAS.
El codigo es este
<!--#include file="Adovbs.inc" -->
<%'Guarda los datos en la base de datos
Dim volsi, copesi, fotosi, Episi, publica, fecha, volanta, titulo, copete, foto, epigrafe, article, tiempo
''''' app database
set mdb = Server.CreateObject("ADODB.Connection")
mdb.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("xx\xxx.mdb") & ";"
''''' recordset object
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
'---- Coloca las variables
if request("volsi")="ON" then
volsi=True
else
volsi=false
end if
if request("copesi")="ON" then
copesi=True
else
copesi=false
end if
if request("fotosi")="ON" then
fotosi=True
else
fotosi=false
end if
if request("Episi")="ON" then
Episi=True
else
Episi=false
end if
if request("publica")="ON" then
publica=True
else
publica=false
end if
'- - - Abre de recordset
rs.open "frmNotas", mdb
rs.addnew
rs("Fecha")=request("fecha")
rs("Pos")=request("pos")
rs("Volanta")=request("volanta")
rs("Vol")=volsi
rs("Titulo")=request("titulo")
rs("Copete")=request("copete")
rs("Cop")=copesi
rs("Foto")=request("foto")
rs("FotoS")=fotosi
rs("Epigrafe")=request("epigrafe")
rs("Epigra")=Episi
rs("Texto")=request("article")
rs("Tiempo")=request("tiempo")
rs("Publica")=publica
rs.update
rs.close
Set rs = Nothing
mdb.Close
Set mdb = Nothing
Response.Redirect("xxx.htm")
%>
¿que puede ser?????
