<%@LANGUAGE="VBScript"%> <% Option Explicit Dim vHTML,vServerAddr vServerAddr = Request.ServerVariables.Item("LOCAL_ADDR")
vHTML = "ScriptEngine = " & ScriptEngine & vbCrLf _
& "ScriptEngineMajorVersion = " & FormatNumber(ScriptEngineMajorVersion,1) & vbCrLf _
& "ScriptEngineMinorVersion = " & FormatNumber(ScriptEngineMinorVersion,1)
%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd"> <HTML> <HEAD> <TITLE> Scripting Engine Information </TITLE> </HEAD> <BODY BGCOLOR="#D7D7D7"> <DIV STYLE="text-align: center"> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="800"> <TR> <TH> <H1> About Visual BasicĀ® Scripting Edition </H1> </TH> </TR> <TR> <TH> <H2> Server Hosting Script Engine: <%=vServerAddr%> </H2> </TH> </TR> <TR> <TD ALIGN="center"> <PRE> <%=vHTML %> </PRE> </TD> </TR> </TABLE> </DIV> </BODY> </HTML>