image
Inicio » Foros » ASP

ASP

error al cerrar el objeto

Volver al foro | Responder | Añadir nuevo tema


De: Haya
Fecha: 30/06/2005
Mensaje:

Hola, este código tiene un error en las últimas lineas donde se cierra el objeto RS.
El error me dice que se esperaba un objeto "rs" en la linea 470.
Pero, el objeto rs está cerrado bastantes lineas antes, ¿Cuál es el problema?

<%
IF (Caractercod="" OR Caractercod="!" OR Caractercod="@" OR Caractercod="#" OR Caractercod="·" OR Caractercod="$" OR Caractercod="%" OR Caracterpass="&" OR Caractercod="/" OR Caractercod="(" OR Caractercod=")" OR Caractercod="=" OR Caractercod="?" OR Caractercod="¿" OR Caractercod="¡" OR Caractercod="`" OR Caractercod="^" OR Caractercod="[" OR Caractercod="+" OR Caractercod="*" OR Caractercod="]" OR Caractercod="{" OR Caractercod="¨" OR Caractercod="," OR Caractercod=";" OR Caractercod="." OR Caractercod=":" OR Caractercod="_" OR Caracterpass="-" OR Caractercod="}" OR Caractercod="ç" OR Caractercod="Ç" OR Caractercod="<" OR Caractercod=">" OR Caractercod="'") then

Response.Write ("ERROR")

ELSE

Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..personal.mdb"))
SQL="Select From FORMULARIO where Cod = '" & codigo & "' AND  Password = '" & password & "'"
set RS = Conn.Execute(SQL)

If (RS.EOF) then


identificadorpersonal= Request.Form("idip")
Dim fechour
fechour = Now()
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../parsonal.mdb")
SQLip = "SELECT * FROM IP where Ip ='" & identificadorpersonal & "' "
rs.Open SQLip,conn,3,3

if rs.eof then
    rs.AddNew
rs("Ip") = identificadorpersonal
rs("Last_Click") = fechour
rs("Clicks") = 1
rs("Autoriza_Click")=fechour+0.04167
    rs.update

Response.Write ("ERROR 1")

elseif Not rs.eof and rs("Clicks") >=3 then
    
Response.Write ("ERROR 2")

elseif Not rs.eof and rs("Clicks") <3 then
    rs("Last_Click") = fechour
    rs("Clicks")=rs("Clicks")+1
    rs("Autoriza_Click")=fechour+0.04167
    rs.update

Response.Write ("ERROR 3")
end if
rs.Close
set rs=nothing
conn.Close

Else

Response.Write ("VERDADERO")

End If


'LINEA 470

RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
END IF
%>




Quizás le interese
De: Haya
Util para: 0 personas

Fecha: 02/07/2005
Mensaje:

Ya he encontrado la solución



Volver al foro | Responder | Añadir nuevo tema

Quizás le interese:

WebEstilo.com no se hace responsable de las opiniones que los usuarios puedan verter en cualquiera de los foros existentes.

Si te solucionó el problema pulsa en G+1


Gracias!






Comparte



Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.