|
<%@ Page Trace="true"%>
<script language="VB" runat="server">
Sub WriteToTrace()
Dim intCounter as integer
intCounter=1
Trace.Write ("FirstCategory", "Variable is initialized")
do while intCounter > 10
intCounter = intCounter + 1
loop
if intCounter < 10 then
Trace.Warn("ErrorCategory", "Value of intCounter is not incrementing")
end if
end Sub
</script>
<%
WriteToTrace()
%>
|