Problema con codigo
Publicado por Xexi (8 intervenciones) el 07/03/2006 00:45:15
Wenas!
Aqui les dejo un trozo del codigo que estoy haciendo que me da error... si me pudiesen ayudar porfavor, es algo muy urgente, gracias! ^^
EL ERROR ME LO DICE EN LA LINIA 17
<!-- #include File="connexion.asp" -->
<%
' 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
%>
<html>
<head>
</head>
<%
' Formulario para entrar nuevos datos
'
if (request.QueryString("Innombreteleoperadora") <> "") and (request.QueryString("Inreferencia") <> "") and (request.QueryString("Innumpoliza") <> "") and (request.QueryString("Infechaefecto") <> "") and quest.QueryString("Intomador") <> "") and (request.QueryString("Indnitomador") <> "") and (request.QueryString("Indireccion") <> "") and (request.QueryString("Intelf") <> "") and (request.QueryString("Inmovil") <> "") and (request.QueryString("Innumcuenta") <> "") and (request.QueryString("Informapago") <> "") and (request.QueryString("In001") <> "") and (request.QueryString("Indni001") <> "") and (request.QueryString("Infnac1") <> "") and (request.QueryString("In002") <> "") and (request.QueryString("Indni002") <> "") and (request.QueryString("Infnac2") <> "") and (request.QueryString("In003") <> "") and (request.QueryString("Indni003") <> "") and (request.QueryString("Infnac3") <> "") and (request.QueryString("In004") <> "") and (request.QueryString("Indni004") <> "") and (request.QueryString("Infnac4") <> "") and (request.QueryString("Inprevialia") <> "") and (request.QueryString("Inenfermedadesgraves") <> "") and (request.QueryString("Invidasana") <> "") and (request.QueryString("Infunasis") <> "") and (request.QueryString("Insfunerario") <> "") and (request.QueryString("Intanatorio") <> "") and (request.QueryString("Innicho") <> "") and (request.QueryString("Inincineracion") <> "") and (request.QueryString("Inlapida") <> "") and (request.QueryString("Intotalpersona") <> "") and (request.QueryString("Inmuerte") <> "") and (request.QueryString("Ininvalidez") <> "") and (request.QueryString("Inparaxpersonas") <> "") and (request.QueryString("Intravel") <> "") and (request.QueryString("Inlegal") <> "") and (request.QueryString("Inhogar") <> "") then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "poliza", oDBCon, 1, 3 ' adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("nombreteleoperadora") = request.QueryString("Innombreteleoperadora")
rs.Fields("referencia") = request.QueryString("Inreferencia")
rs.Fields("numpoliza") = request.QueryString("Innumpoliza")
rs.Fields("fechaefecto") = request.QueryString("Infechaefecto")
rs.Fields("tomador") = request.QueryString("Intomador")
rs.Fields("dnitomador") = request.QueryString("Indnitomador")
rs.Fields("direccion") = request.QueryString("Indireccion")
rs.Fields("telf") = request.QueryString("Intelf")
rs.Fields("movil") = request.QueryString("Inmovil")
rs.Fields("numcuenta") = request.QueryString("Innumcuenta")
rs.Fields("formapago") = request.QueryString("Informapago")
rs.Fields("001") = request.QueryString("In001")
rs.Fields("dni001") = request.QueryString("Indni001")
rs.Fields("fnac1") = request.QueryString("Infnac1")
rs.Fields("002") = request.QueryString("In002")
rs.Fields("dni002") = request.QueryString("Indni002")
rs.Fields("fnac2") = request.QueryString("Infnac2")
rs.Fields("003") = request.QueryString("In003")
rs.Fields("dni003") = request.QueryString("Indni003")
rs.Fields("fnac3") = request.QueryString("Infnac3")
rs.Fields("004") = request.QueryString("In004")
rs.Fields("dni004") = request.QueryString("Indni004")
rs.Fields("fnac4") = request.QueryString("Infnac4")
rs.Fields("previalia") = request.QueryString("Inprevialia")
rs.Fields("enfermedadesgraves") = request.QueryString("Inenfermedadesgraves")
rs.Fields("vidasana") = request.QueryString("Invidasana")
rs.Fields("funasis") = request.QueryString("Infunasis")
rs.Fields("sfunerario") = request.QueryString("Insfunerario")
rs.Fields("tanatorio") = request.QueryString("Intanatorio")
rs.Fields("nicho") = request.QueryString("Innicho")
rs.Fields("incineracion") = request.QueryString("Inincineracion")
rs.Fields("lapida") = request.QueryString("Inlapida")
rs.Fields("totalpersona") = request.QueryString("Intotalpersona")
rs.Fields("muerte") = request.QueryString("Inmuerte")
rs.Fields("invalidez") = request.QueryString("Ininvalidez")
rs.Fields("paraxpersonas") = request.QueryString("Inparaxpersonas")
rs.Fields("travel") = request.QueryString("Intravel")
rs.Fields("legal") = request.QueryString("Inlegal")
rs.Fields("hogar") = request.QueryString("Inhogar")
rs.Update
rs.Close
set rs = Nothing
end if
%>
Aqui les dejo un trozo del codigo que estoy haciendo que me da error... si me pudiesen ayudar porfavor, es algo muy urgente, gracias! ^^
EL ERROR ME LO DICE EN LA LINIA 17
<!-- #include File="connexion.asp" -->
<%
' 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
%>
<html>
<head>
</head>
<%
' Formulario para entrar nuevos datos
'
if (request.QueryString("Innombreteleoperadora") <> "") and (request.QueryString("Inreferencia") <> "") and (request.QueryString("Innumpoliza") <> "") and (request.QueryString("Infechaefecto") <> "") and quest.QueryString("Intomador") <> "") and (request.QueryString("Indnitomador") <> "") and (request.QueryString("Indireccion") <> "") and (request.QueryString("Intelf") <> "") and (request.QueryString("Inmovil") <> "") and (request.QueryString("Innumcuenta") <> "") and (request.QueryString("Informapago") <> "") and (request.QueryString("In001") <> "") and (request.QueryString("Indni001") <> "") and (request.QueryString("Infnac1") <> "") and (request.QueryString("In002") <> "") and (request.QueryString("Indni002") <> "") and (request.QueryString("Infnac2") <> "") and (request.QueryString("In003") <> "") and (request.QueryString("Indni003") <> "") and (request.QueryString("Infnac3") <> "") and (request.QueryString("In004") <> "") and (request.QueryString("Indni004") <> "") and (request.QueryString("Infnac4") <> "") and (request.QueryString("Inprevialia") <> "") and (request.QueryString("Inenfermedadesgraves") <> "") and (request.QueryString("Invidasana") <> "") and (request.QueryString("Infunasis") <> "") and (request.QueryString("Insfunerario") <> "") and (request.QueryString("Intanatorio") <> "") and (request.QueryString("Innicho") <> "") and (request.QueryString("Inincineracion") <> "") and (request.QueryString("Inlapida") <> "") and (request.QueryString("Intotalpersona") <> "") and (request.QueryString("Inmuerte") <> "") and (request.QueryString("Ininvalidez") <> "") and (request.QueryString("Inparaxpersonas") <> "") and (request.QueryString("Intravel") <> "") and (request.QueryString("Inlegal") <> "") and (request.QueryString("Inhogar") <> "") then
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "poliza", oDBCon, 1, 3 ' adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("nombreteleoperadora") = request.QueryString("Innombreteleoperadora")
rs.Fields("referencia") = request.QueryString("Inreferencia")
rs.Fields("numpoliza") = request.QueryString("Innumpoliza")
rs.Fields("fechaefecto") = request.QueryString("Infechaefecto")
rs.Fields("tomador") = request.QueryString("Intomador")
rs.Fields("dnitomador") = request.QueryString("Indnitomador")
rs.Fields("direccion") = request.QueryString("Indireccion")
rs.Fields("telf") = request.QueryString("Intelf")
rs.Fields("movil") = request.QueryString("Inmovil")
rs.Fields("numcuenta") = request.QueryString("Innumcuenta")
rs.Fields("formapago") = request.QueryString("Informapago")
rs.Fields("001") = request.QueryString("In001")
rs.Fields("dni001") = request.QueryString("Indni001")
rs.Fields("fnac1") = request.QueryString("Infnac1")
rs.Fields("002") = request.QueryString("In002")
rs.Fields("dni002") = request.QueryString("Indni002")
rs.Fields("fnac2") = request.QueryString("Infnac2")
rs.Fields("003") = request.QueryString("In003")
rs.Fields("dni003") = request.QueryString("Indni003")
rs.Fields("fnac3") = request.QueryString("Infnac3")
rs.Fields("004") = request.QueryString("In004")
rs.Fields("dni004") = request.QueryString("Indni004")
rs.Fields("fnac4") = request.QueryString("Infnac4")
rs.Fields("previalia") = request.QueryString("Inprevialia")
rs.Fields("enfermedadesgraves") = request.QueryString("Inenfermedadesgraves")
rs.Fields("vidasana") = request.QueryString("Invidasana")
rs.Fields("funasis") = request.QueryString("Infunasis")
rs.Fields("sfunerario") = request.QueryString("Insfunerario")
rs.Fields("tanatorio") = request.QueryString("Intanatorio")
rs.Fields("nicho") = request.QueryString("Innicho")
rs.Fields("incineracion") = request.QueryString("Inincineracion")
rs.Fields("lapida") = request.QueryString("Inlapida")
rs.Fields("totalpersona") = request.QueryString("Intotalpersona")
rs.Fields("muerte") = request.QueryString("Inmuerte")
rs.Fields("invalidez") = request.QueryString("Ininvalidez")
rs.Fields("paraxpersonas") = request.QueryString("Inparaxpersonas")
rs.Fields("travel") = request.QueryString("Intravel")
rs.Fields("legal") = request.QueryString("Inlegal")
rs.Fields("hogar") = request.QueryString("Inhogar")
rs.Update
rs.Close
set rs = Nothing
end if
%>
Valora esta pregunta
0