Current File : C:/Inetpub/vhosts/escuderiaarico.com/httpdocs/admin/leercliente.asp

<%
on error resume next

Response.CharSet = "UTF-8"

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=escuderiaarico;PWD=Cocococo1;DATABASE=escuderiaarico"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From cl15 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


%>