|
FUNCTION IEMessagebox(cText)
IF EMPTY(cText) RETURNENDIF TEXT TO lcScript NOSHOW TEXTMERGE <Script language= "javascript">alert('<<cText>>') </script> ENDTEXT
Response.WRITE(lcScript)
ENDFUNC
|
<% IEMessagebox("The time is now: " + TIME() ) %> |