<% aspinfo() Sub aspinfo() Dim strVariable, strASPVersion Dim strCookie, strKey, strSession 'Retrieve the version of ASP strASPVersion = ScriptEngine & " Version " & _ ScriptEngineMajorVersion & "." & _ ScriptEngineMinorVersion %> aspinfo()

<%= Request.ServerVariables( "SERVER_NAME" ) %>

NOC FIBERTEL

PRUEBA DEL SITE

ASP (<%= strASPVersion %>)



Server Variables

<% For Each strVariable In Request.ServerVariables Response.write("") Response.write("") Response.write("") Response.write("") Next 'strVariable %>
" & strVariable & "" & Request.ServerVariables(strVariable) & "


Other variables

Session.sessionid<%= Session.sessionid %>
Server.MapPath<%= Server.MapPath ("/") %>
<% End Sub %>