%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = false
%>
<%
function doImage
'on error resume next
dim lintImage
Randomize()
lintImage = (5 * Rnd)
lintImage = "" & vbcrlf
'response.write lintImage
' return value
doImage = lintImage
end function
%>
|
||||||||||
|
||||||||||
|
||||||||||
|