HEX
Server: Microsoft-IIS/10.0
System: Windows NT ITPWINWEBSVR22 10.0 build 20348 (Windows Server 2022) AMD64
User: www.conferencesearch.co.uk (0)
PHP: 8.3.30
Disabled: NONE
Upload Files
File: D:/web/common/debug/MyVBScript.asp
<%@ Language=VBScript %>

<% Option Explicit %>

<!-- #include file="VBScriptDebug.asp" -->

<%
'Create a session variable to test the debugger.
Session("MySessionVar") = "Test variable"

'Declare variables.
Dim x

'Declare your Debug object.
Dim Debug

'Instantiate the Debug object.
Set Debug = new clsDebug

'Enable the Debug object. In the future, you can set it to false to disable it. 
'The rest of your debug code can be left in the page.
Debug.Enabled = true

'The following code shows how to use the Debug.Print method
'and how to provide a label to check your variables.
x = 10
Debug.Print "x before math", x
x = x + 50
Debug.Print "x after math", x

'Create a cookie to test the debugger.
Response.Cookies("TestCookie") = "Hello World"  

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<FORM action="" method=POST id=form1 name=form1>
<INPUT type="text" id=text1 name=text1>
<INPUT type="submit" value="Post Info" id=submit1 name=submit1>
</FORM>

<FORM action="" method=Get id=form2 name=form2>
<INPUT type="text" id=text2 name=text2>
<INPUT type="submit" value="Get Info" id=submit2 name=submit2>
</FORM>
</BODY>
</HTML>

<%
   'Call the End method to display all of the debug values.
   Debug.End
   Set Debug = nothing
%>