<style type="text/css">
.source {font-family : arial;font-size : 9pt;}
.d {/* delimiter */ color : #ff0000;background-color : #ffff00;}
.s {/* string */color: #9932cc;
background: #f7f7b8;
font-weight: bold;}
.e{color:#da5e12;font-weight:bold;}
.c {/* comment */color: navy;background: #c8f2c9;font-style: italic;}
.fr{color:#d25306;}
.v{color:green;}
.f {/* function */
color: #0000cd;
font-weight: bold;}
.p {/* property */color : #00008b;}
.k {/* keyword */
color: #4648ff;
font-weight: bold;}
.l{color:green;font-weight:bold;}
.op {/* operator */color : #00008b;}
.ob{/* object */color : #00008b;font-weight : bold;}
</style>
'comment:    syntax replace##################################################################


'comment:    delimiters
scriptext = lcase(scriptext)
scriptext = replace(scriptext, " ", " " )
scriptext = replace(scriptext, vbcrlf,  "<br>")

scriptext = replace(scriptext, "&lt;%",  "<font class=d>< %</font>")
scriptext = replace(scriptext, "%&gt;",  "<font class=d>% ></font>")
scriptext = replace(scriptext, "",  "<font class=s>&quot;</font>")
scriptext = replace(scriptext, "'comment:    ",  "<font class=c>'comment:    comment:   </font> &nbsp ")

scriptext = replace(scriptext, "style",  "<font class=e>style</font>")
scriptext = replace(scriptext, "/style",  "<font class=e>/style</font>")



scriptext = replace(scriptext, "&lt;!--",  "<font class=s>< ! --")
scriptext = replace(scriptext, "--&gt;",  "--></font>")
scriptext = replace(scriptext, "(",  "<font class=v>(")
scriptext = replace(scriptext, ")",  ")</font>")

'comment:    property
scriptext = replace(scriptext, "contents",  "<font class=p>contents</font>")
scriptext = replace(scriptext, "expires",  "<font class=p>expires</font>")
scriptext = replace(scriptext, "querystring",  "<font class=p>querystring</font>")
scriptext = replace(scriptext, "timeout",  "<font class=p>timeout</font>")
scriptext = replace(scriptext, "servervariables",  "<font class=p>servervariables</font>")
scriptext = replace(scriptext, "buffer",  "<font class=p>buffer</font>")
scriptext = replace(scriptext, "cookies",  "<font class=p>cookies</font>")
scriptext = replace(scriptext, "value",  "<font class=p>value</font>")
scriptext = replace(scriptext, "activeconnection",  "<font class=p>activeconnection</font>")
scriptext = replace(scriptext, "cursortype",  "<font class=p>cursortype</font>")
scriptext = replace(scriptext, "recordcount",  "<font class=p>recordcount</font>")

'comment:    functions
scriptext = replace(scriptext, "createobject",  "<font class=f>createobject</font>")
scriptext = replace(scriptext, "dateadd",  "<font class=f>dateadd</font>")
scriptext = replace(scriptext, "datediff",  "<font class=f>datediff</font>")
scriptext = replace(scriptext, "datepart",  "<font class=f>datepart</font>")
scriptext = replace(scriptext, "eof",  "<font class=f>eof</font>")
scriptext = replace(scriptext, "bof",  "<font class=f>bof</font>")
scriptext = replace(scriptext, "instr",  "<font class=f>instr</font>")
scriptext = replace(scriptext, "now",  "<font class=f>now</font>")
scriptext = replace(scriptext, "split",  "<font class=f>split</font>")
scriptext = replace(scriptext, "fomatdatetime",  "<font class=f>fomatdatetime</font>")
scriptext = replace(scriptext, "replace",  "<font class=f>replace</font>")
scriptext = replace(scriptext, "htmlencode",  "<font class=f>htmlencode</font>")
scriptext = replace(scriptext, "redirect",  "<font class=f>redirect</font>")
scriptext = replace(scriptext, "mappath",  "<font class=f>mappath</font>")
scriptext = replace(scriptext, "lock",  "<font class=f>lock</font>")
scriptext = replace(scriptext, "unlock",  "<font class=f>unlock</font>")
scriptext = replace(scriptext, "execute",  "<font class=f>execute</font>")
scriptext = replace(scriptext, "open",  "<font class=f>open</font>")
scriptext = replace(scriptext, "movenext",  "<font class=f>movenext</font>")
scriptext = replace(scriptext, "abandon",  "<font class=f>abandon</font>")
scriptext = replace(scriptext, "close",  "<font class=f>close</font>")
scriptext = replace(scriptext, "addnew",  "<font class=f>addnew</font>")
scriptext = replace(scriptext, "delete",  "<font class=f>delete</font>")
scriptext = replace(scriptext, "update",  "<font class=f>update</font>")
scriptext = replace(scriptext, "readline",  "<font class=f>readline</font>")

'comment:    keywords
scriptext = replace(scriptext, "rs",  "<font class=k>rs</font>")
scriptext = replace(scriptext, "set",  "<font class=k>set</font>")
scriptext = replace(scriptext, "if",  "<font class=k>if</font>")
scriptext = replace(scriptext, "else",  "<font class=k>else</font>")
scriptext = replace(scriptext, "fso",  "<font class=k>fso</font>")
scriptext = replace(scriptext, "end",  "<font class=k>end</font>")
scriptext = replace(scriptext, "loop",  "<font class=k>loop</font>")
scriptext = replace(scriptext, "next",  "<font class=k>next</font>")
scriptext = replace(scriptext, "function",  "<font class=k>function</font>")
scriptext = replace(scriptext, "true ",  "<font class=k>true  </font>")
scriptext = replace(scriptext, "false",  "<font class=k>false</font>")
scriptext = replace(scriptext, "error",  "<font class=k>error</font>")
scriptext = replace(scriptext, "elseif",  "<font class=k>elseif</font>")
scriptext = replace(scriptext, "exit",  "<font class=k>exit</font>")
scriptext = replace(scriptext, "for",  "<font class=k>for</font>")
scriptext = replace(scriptext, "dim",  "<font class=k>dim</font>")
scriptext = replace(scriptext, "case",  "<font class=k>case</font>")
scriptext = replace(scriptext, "select",  "<font class=k>select</font>")
scriptext = replace(scriptext, "select",  "<font class=k>select</font>")
scriptext = replace(scriptext, "write",  "<font class=k>write</font>")

'comment:    objects
scriptext = replace(scriptext, "application",  "<font class=ob>application</font>")
scriptext = replace(scriptext, "request",  "<font class=ob>request</font>")
scriptext = replace(scriptext, "response",  "<font class=ob>response</font>")
scriptext = replace(scriptext, "server",  "<font class=ob>session</font>")
scriptext = replace(scriptext, "session",  "<font class=ob>session</font>")
scriptext = replace(scriptext, "scriptingcontext",  "<font class=ob>scriptingcontext</font>")

'comment: ######################################################
  % >

Replace  kodlarınız renkli yapabilirsiniz