|
<%
dim rs
set rs = cn.Execute("select * from tblkeywordlist")
dim CurCount : CurCount = 0
while not rs.EOF
CurCount = CurCount + 1
if CurCount mod 4 = 1 then response.Write("")
%>
| "><%=rs("keywordtext")%> |
<%
if CurCount mod 4 = 0 then response.Write(" ")
rs.MoveNext
wend
%>
|