以下範例可用於公告系統，搭配資料庫讀取資料更好了。
<%
Dim LinkArray,TextArray,IndexArray
' 建立 LinkArray 超連結陣列值
LinkArray = 5
' 建立 TextArray 超連結文字陣列值
TextArray = LinkArray
' 建立 IndexArray 所有資料之陣列值
IndexArray = LinkArray + 1
' 建立跑馬燈標籤
Dim StrMarquee
StrMarquee = "documents.write ("<marquee scrollamount='1'" & _
" scrolldelay='60' direction='up' width='200' id=maq hei" & _
"ght='110' onmouseover=maq.stop() onmouseout=maq.st" & _
"art()>");"
' 用 Replace 過瀘 " 為 " 雙引號
StrMarquee = Replace(StrMarquee,""","""")
' 建立超連結標籤
Dim DucumentMarquee
DocumentMarquee = "documents.write ("<a href="+href[m]+" & _
"" target=_blank>"+href_text[m]+"</a><p>");}"
' 用 Replace 過瀘 " 為 " 雙引號
DocumentMarquee = Replace(DocumentMarquee,""","""")
Response.Write("<script language=javascript>") & vbCrlf
Response.Write("var href_index = "&IndexArray&"") & vbCrlf
Response.Write("href = new Array("&LinkArray&");") & vbCrlf
Response.Write("href_text = new Array("&TextArray&");") & vbCrlf
For I=0 To LinkArray
Response.Write("href["&I&"] = 'test.asp'") & vbCrlf
Response.Write("href_text["&I&"] = '可以使用ASP產生垂直JavaScript跑馬燈'") & vbCrlf
Next
Response.Write(StrMarquee) & vbCrlf
Response.Write("for (m=0;m<href_index;m++){") & vbCrlf
Response.Write(DocumentMarquee) & vbCrlf
Response.Write("</script>") & vbCrlf
%>
以上程式碼放在 <head> 與 </head> 之間
