PK

<!--#include file="administrador/includes/openconn.asp" -->

<% Session.TimeOut = 60 %>

<%rs.Open "SELECT * FROM clientes WHERE cli_email = '" & request("cli_email") &"' AND cli_password = '" & request("cli_password") & "' AND cli_autorizado = True",conn,3,1

if rs.EOF then 
	rs.Close
	
	rs.Open "SELECT * FROM clientes WHERE cli_email = '" & request("cli_email") &"' AND cli_password = '" & request("cli_password") & "'",conn,3,1
	if not rs.eof then
		rs.close
		conn.Close
		Response.Redirect("clientes_login.asp?msj=NOAUT&" & request.Form())
	else
		rs.close
		conn.Close
		Response.Redirect("clientes_login.asp?msj=NOEXISTE&" & request.Form())
	end if
else

	rs.movefirst

	rs1.open "Clientes_logs",conn,2,2
	rs1.addnew
	rs1("log_IP")=request.ServerVariables("REMOTE_ADDR")
	rs1("log_now")=now()
	rs1("xidcliente")=rs("idcliente")
	rs1.update
	rs1.close
	
	session("cli_nombre")= rs("cli_nombre")
	session("cli_cuit")= rs("cli_cuit")
	session("cli_email")= rs("cli_email")
	session("cli_telefono")= rs("cli_telefono")
	session("cli_domicilio")= rs("cli_domicilio")
	session("cli_localidad")= rs("cli_localidad")
	session("cli_provincia")= rs("cli_provincia")
	session("cli_actividad")= rs("cli_actividad")
	session("cli_contacto")= rs("cli_contacto")
	session("cli_codigo")= rs("cli_codigo")
	session("cli_revendedor")= rs("cli_revendedor")
	session("cli_descuento")= rs("cli_descuento")
	session("idcliente")= rs("idcliente")
	rs.Close
	conn.Close
	
	if session("URLdestino") <> "" then
'		Response.Write(session("URLdestino"))
		Response.Redirect(session("URLdestino"))
	else
		Response.Redirect("clientes_login.asp")
	end if	
end if
%>

PK 99