Ayuda sobre codigo, porfavor
Publicado por Sergi (8 intervenciones) el 10/03/2006 09:29:20
Muy buenas, tengo un grabe problema con este codigo que les dejare mas abajo... Llevo mas de una semana buscando por internet, rompiendome la cabeza... pero nada de nada.
Tengo un formulario que ataca a otro archivo el cual tiene que hacer la funcion de enviar los datos en una base de datos CDB (CDB por que es para una PDA y ese es su formato), pero cada vez que pongo enviar formulario, si miro dentro de la BD, sale como que si hubiera ingresado los campos, pero en blanco.
Aqui les dejo el codigo del archivo anadir_poliza.asp y connexion.asp. Gracias de antemano! ^^
-------------------------- Connexion.asp ---------------------------
<%
dim g_sDSN
g_sDSN = "data source = \PAspPages\ModeZero\_db\poliza.cdb"
%>
-------------------------- anadir_poliza.asp ---------------------------
<!-- #include File="connexion.asp" -->
<% response.write request.form %>
<%
' Creamos la connexion de la Base de Datos que utilizaremos
'
dim oDBCon
set oDBCon = Server.CreateObject("ADODB.Connection")
oDBCon.ConnectionString = g_sDSN
oDBCon.Open
Dim rs
%>
<%
' Formulario para entrar nuevos datos
'
vacio=false
for each a in request.form
if request.form( a )="" then vacio=true
next
if not vacio then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "poliza", oDBCon, 1, 2 ' adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("nombreteleoperadora") = request.form("Innombreteleoperadora")
rs.Fields("referencia") = request.form("Inreferencia")
rs.Fields("numpoliza") = request.form("Innumpoliza")
rs.Fields("fechaefecto") = request.form("Infechaefecto")
rs.Fields("tomador") = request.form("Intomador")
rs.Fields("dnitomador") = request.form("Indnitomador")
rs.Fields("direccion") = request.form("Indireccion")
rs.Fields("telf") = request.form("Intelf")
rs.Fields("movil") = request.form("Inmovil")
rs.Fields("numcuenta") = request.form("Innumcuenta")
rs.Fields("formapago") = request.form("Informapago")
rs.Fields("001") = request.form("In001")
rs.Fields("dni001") = request.form("Indni001")
rs.Fields("fnac1") = request.form("Infnac1")
rs.Fields("002") = request.form("In002")
rs.Fields("dni002") = request.form("Indni002")
rs.Fields("fnac2") = request.form("Infnac2")
rs.Fields("003") = request.form("In003")
rs.Fields("dni003") = request.form("Indni003")
rs.Fields("fnac3") = request.form("Infnac3")
rs.Fields("004") = request.form("In004")
rs.Fields("dni004") = request.form("Indni004")
rs.Fields("fnac4") = request.form("Infnac4")
rs.Fields("previalia") = request.form("Inprevialia")
rs.Fields("enfermedadesgraves") = request.form("Inenfermedadesgraves")
rs.Fields("vidasana") = request.form("Invidasana")
rs.Fields("sfunerario") = request.form("Insfunerario")
rs.Fields("tanatorio") = request.form("Intanatorio")
rs.Fields("nicho") = request.form("Innicho")
rs.Fields("incineracion") = request.form("Inincineracion")
rs.Fields("lapida") = request.form("Inlapida")
rs.Fields("totalpersona") = request.form("Intotalpersona")
rs.Fields("muerte") = request.form("Inmuerte")
rs.Fields("invalidez") = request.form("Ininvalidez")
rs.Fields("paraxpersonas") = request.form("Inparaxpersonas")
rs.Fields("travel") = request.form("Intravel")
rs.Fields("legal") = request.form("Inlegal")
rs.Fields("hogar") = request.form("Inhogar")
rs.Update
rs.Close
set rs = Nothing
end if
%>
<body bgcolor="#FFFF99">
<font face="Tahoma" size="2"><b><i> Ingrés de dades completat</i></b></font></p>
<br>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="javascript:history.go(-1)" target="_top">Afegir nou</a></i></b></font></p>
<%
' free resources
'
set oDBCon = Nothing
%>
ESO ES TODO, EL ARCHIVO DEL FORMULARIO NO OS LO PONGO, JA QUE SE SUPONE QUE ESTA BIEN, GRACIAS!!!!
Tengo un formulario que ataca a otro archivo el cual tiene que hacer la funcion de enviar los datos en una base de datos CDB (CDB por que es para una PDA y ese es su formato), pero cada vez que pongo enviar formulario, si miro dentro de la BD, sale como que si hubiera ingresado los campos, pero en blanco.
Aqui les dejo el codigo del archivo anadir_poliza.asp y connexion.asp. Gracias de antemano! ^^
-------------------------- Connexion.asp ---------------------------
<%
dim g_sDSN
g_sDSN = "data source = \PAspPages\ModeZero\_db\poliza.cdb"
%>
-------------------------- anadir_poliza.asp ---------------------------
<!-- #include File="connexion.asp" -->
<% response.write request.form %>
<%
' Creamos la connexion de la Base de Datos que utilizaremos
'
dim oDBCon
set oDBCon = Server.CreateObject("ADODB.Connection")
oDBCon.ConnectionString = g_sDSN
oDBCon.Open
Dim rs
%>
<%
' Formulario para entrar nuevos datos
'
vacio=false
for each a in request.form
if request.form( a )="" then vacio=true
next
if not vacio then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "poliza", oDBCon, 1, 2 ' adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("nombreteleoperadora") = request.form("Innombreteleoperadora")
rs.Fields("referencia") = request.form("Inreferencia")
rs.Fields("numpoliza") = request.form("Innumpoliza")
rs.Fields("fechaefecto") = request.form("Infechaefecto")
rs.Fields("tomador") = request.form("Intomador")
rs.Fields("dnitomador") = request.form("Indnitomador")
rs.Fields("direccion") = request.form("Indireccion")
rs.Fields("telf") = request.form("Intelf")
rs.Fields("movil") = request.form("Inmovil")
rs.Fields("numcuenta") = request.form("Innumcuenta")
rs.Fields("formapago") = request.form("Informapago")
rs.Fields("001") = request.form("In001")
rs.Fields("dni001") = request.form("Indni001")
rs.Fields("fnac1") = request.form("Infnac1")
rs.Fields("002") = request.form("In002")
rs.Fields("dni002") = request.form("Indni002")
rs.Fields("fnac2") = request.form("Infnac2")
rs.Fields("003") = request.form("In003")
rs.Fields("dni003") = request.form("Indni003")
rs.Fields("fnac3") = request.form("Infnac3")
rs.Fields("004") = request.form("In004")
rs.Fields("dni004") = request.form("Indni004")
rs.Fields("fnac4") = request.form("Infnac4")
rs.Fields("previalia") = request.form("Inprevialia")
rs.Fields("enfermedadesgraves") = request.form("Inenfermedadesgraves")
rs.Fields("vidasana") = request.form("Invidasana")
rs.Fields("sfunerario") = request.form("Insfunerario")
rs.Fields("tanatorio") = request.form("Intanatorio")
rs.Fields("nicho") = request.form("Innicho")
rs.Fields("incineracion") = request.form("Inincineracion")
rs.Fields("lapida") = request.form("Inlapida")
rs.Fields("totalpersona") = request.form("Intotalpersona")
rs.Fields("muerte") = request.form("Inmuerte")
rs.Fields("invalidez") = request.form("Ininvalidez")
rs.Fields("paraxpersonas") = request.form("Inparaxpersonas")
rs.Fields("travel") = request.form("Intravel")
rs.Fields("legal") = request.form("Inlegal")
rs.Fields("hogar") = request.form("Inhogar")
rs.Update
rs.Close
set rs = Nothing
end if
%>
<body bgcolor="#FFFF99">
<font face="Tahoma" size="2"><b><i> Ingrés de dades completat</i></b></font></p>
<br>
<p align="center"><font face="Tahoma" size="2"><b><i><a href="javascript:history.go(-1)" target="_top">Afegir nou</a></i></b></font></p>
<%
' free resources
'
set oDBCon = Nothing
%>
ESO ES TODO, EL ARCHIVO DEL FORMULARIO NO OS LO PONGO, JA QUE SE SUPONE QUE ESTA BIEN, GRACIAS!!!!
Valora esta pregunta
0