% Cn="FobSoc" cuenta=Request.Cookies(Cn)("Contador") if Session("Inicio") <> true then Session("Inicio")= true cuenta=cuenta+1 Response.Cookies(Cn)("Contador")= CStr(cuenta) Response.Cookies(Cn).Expires = Date() + 365 end if Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile("d:\users\maykel\test.txt",8) a.writeline request.servervariables("REMOTE_ADDR") &"|"& Date()&"|"& Time() &"["& cuenta &"]"& request.querystring("n") a.Close %>
|
| Una droga para el tratamiento de la fobia social? |
| maykel98@yahoo.com |
<%
carga = Int(request.querystring("n"))
if carga > 10 then carga=0
select case carga
case 1
nombre="Inicio2.htm"
case 2
nombre="Sintomas.htm"
case 3
nombre="Situac.htm"
case 4
nombre="Creencias.htm"
case 5
nombre="Distor.htm"
case 6
nombre="FCC.htm"
case 7
nombre="LnkEsp.htm"
case 8
nombre="LnkIng.htm"
case 9
nombre="Recupera.htm"
case 10
nombre="Declara.htm"
case else
nombre="Inicio.htm"
end select
Set fs = CreateObject("Scripting.FileSystemObject")
Set ar =fs.OpenTextFile(Server.MapPath(nombre),1, False)
response.write ar.ReadAll
ar.Close
set fs=nothing
%>