<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="adovbs.inc" -->
<%
s1=request.QueryString("s")
id1=request.QueryString("id")
foto=request.QueryString("foto")
rs1=request.QueryString("rs")

'################## FIN ///paginación/// #############

dbfile=Server.MapPath("datos/acomp.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&dbfile

set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset 
'################# sacado el rem por mi ################
rs.LockType = adLockOptimistic 
'################# hasta aca había rem  ################




rs.open "select * from acomp where Id_Acomp="&rs1,conn
if not rs.EOF then

session("Nombre")=rs("Nombre_Acomp")
session("Sexo")=rs("Sexo_Acomp")
session("Edad")=rs("Edad_Acomp")
session("Medidas")=rs("Medidas_Acomp")
session("Altura")=rs("Altura_Acomp")
session("Caracteristicas")=rs("Caracteristicas_Acomp")
session("Idiomas")=rs("Idiomas_Acomp")
session("Viajes")=rs("Viajes_Acomp")
session("Descripcion")=rs("Descripcion_Acomp")
session("Zona")=rs("Zona_Acomp")
session("Lugar_Atencion")=rs("Lugar_Atencion_Acomp")
session("Servicios")=rs("Servicios_A_Acomp")
session("Horario")=rs("Horario_Acomp")
session("Tarifa")=rs("Tarifa_Acomp")
session("Tel")=rs("Tel_Acomp")
session("Mail")=rs("Mail_Acomp")
session("Web")=rs("Web_Acomp")
session("Audio")=rs("Audio_Acomp")
session("Video")=rs("Video_Acomp")
session("Venc_Aviso")=rs("Venc_Aviso_Acomp")
session("Tipo_Aviso")=rs("Tipo_Aviso_Acomp")
End if 

rs.close
Conn.close
set rs=nothing
set Conn=Nothing
response.redirect("escorts.asp?Id="&id1&"&foto=01&s="&s1&"&rs="&rs1)
		
		%>