Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023_01/admin/leercliente.asp

<%
Response.CharSet = "UTF-8"

on error resume next

if Session("autmenu")<>true then

	Response.Redirect("index.asp")
	Response.End

end if

Session.Timeout=300

id_cl=Session("id_cl")

if id_cl="" then

	Response.Redirect("index.asp")

else
end if

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From cl23 where id='" & id_cl & "'"
set RS = Conn.Execute(sSQL)

if not rs.eof then

id_cliente = rs("id")
web = rs("web")
nombre = rs("nombre")

else
end if

Conn.Close


%>