Debugging techniques

SHOWDEBUG = 0 ' 0-Off, 1-In source, 2-On page
...
Sub Debug(str_Message)
Select Case SHOWDEBUG
Case 1
	Response.Write(vbcrlf & "<!-- " & str_Message & " -->" & vbcrlf)
Case 2
	Response.Write(vbcrlf & "<font size=""2"" face=""Courier new"" color=""red"">" & str_Message & "</font><br>")
End Select
End Sub

TL_AppendTraceLog 0, "YourScript.asp", "Starting script..."

    <script language="jscript" runat="server">
    /*********************************
    anov (aka. "catdogfight")
    15:39 27.05.2005 : posted to aspfree forum
    **********************************/
    function log_(p){
    
    	/**************************
 		  Options
    	***************************/
    	var logging = true ; //Logging is open?
    
    	var file = "" ;  //filter with file name
    
    	var filter = null ; //filter with regex
    
    	var file_name = String( Request.ServerVariables("SCRIPT_NAME") ) ;
    
    	var file_name_begin = file_name.lastIndexOf("/") + 1 ;
    
    	file_name = file_name.slice( file_name_begin ) ;
    
    	/******************************/
    
    	if(!logging) return true;
    
    
    
    	if(file!="")
    	{
    		//Response.Write( file.indexOf(file_name)==-1 )
    		if(file.indexOf(file_name)==-1) return false ;
    	}
    
    	//debugging(filter instanceof RegExp )
    
    	if(filter instanceof RegExp)
    	{
    		if( filter.test( String(p) ) == false )
    		{
    			return false ;
    		}
    	}
    
    
    	var path = Server.MapPath(".")+"\\"+"log.txt"
    
    	var fso = Server.CreateObject("Scripting.FileSystemObject");
    	var f ;
    
    	if(fso.FileExists(path))
    	{
    		f = fso.OpenTextFile(path,8);
    	}
    	else
    	{
    		f = fso.CreateTextFile(path,true) ;
    	}
    
    	try
    	{
    	f.Writeline(p) ;
    	}
    	catch(e)
    	{
    		Response.Write("<h1>" + p + "</h1>" );
    	}
    	f.Close() ;
    
    	delete f,fso;
    }//end function
    
    function alert_( p )
    {
    	var lt = String.fromCharCode(60); // <
    	var gt = String.fromCharCode(62); // >
    	var t  = String.fromCharCode(39); // '
    
    	Response.Write(lt+"script"+gt+"alert('" + p + "')"+lt+"/script"+gt);
    }
    </script>
    

 response.write strQuery	'  or whatever your variable is called
 response.end