<% @ Language = "VbScript" %>
<% Option Explicit %>
<%
Function strCode(myCode)
myCode = Replace(myCode,myCode,"<font color='#000000' face='Verdana' size='1'>" & myCode & "</font>" )
myCode = Replace(myCode,"Response" ,"<font color='#999966' face='Verdana' size='1'>Response</font>" )
myCode = Replace(myCode,".Write" ,"<font color='#990033' face='Verdana' size='1'>.Write</font>" )
myCode = Replace(myCode,".End" ,"<font color='#FF0000' face='Verdana' size='1'>.End</font>" )
myCode = Replace(myCode,"Session" ,"<font color='#6600FF' face='Verdana' size='1'>Session</font>" )
myCode = Replace(myCode,"True" ,"<font color='#0033FF' face='Verdana' size='1'>True</font>" )
strCode = myCode
End Function
%>
<%
Dim text
Dim text2
Dim text3
text = "Response.Write 'Test'"
text2 = "Response.End"
text3 = "Session(" "oturum" ") = True"
%>
<%
Response.Write strCode(text)
Response.Write "<br>"
Response.Write strCode(text2)
Response.Write "<br>"
Response.Write strCode(text3)
%>