<%
fplinkrs.filter="linkpicture<>''"
if fplinkrs.recordcount>0 then
pflinkstr=""
number=1
while not fplinkrs.eof
pflinkstr=pflinkstr & "&") | "
fplinkrs.movenext
if (number mod 7=0) and (not fplinkrs.eof) then pflinkstr=pflinkstr & " "
number=number+1
wend
number=(number-1) mod 7
if number<>0 then
number=7-number
for i=1 to number
pflinkstr=pflinkstr & "| | "
next
pflinkstr=pflinkstr & " "
end if
response.write pflinkstr
pflinkstr=""
end if
fplinkrs.filter="linkpicture='' or linkpicture=null"
if fplinkrs.recordcount>0 then
tflinkstr=""
number=1
while not fplinkrs.eof
tflinkstr=tflinkstr & "| "&fplinkrs("linktext")&" | "
fplinkrs.movenext
if (number mod 7=0) and (not fplinkrs.eof) then tflinkstr=tflinkstr & " "
number=number+1
wend
number=(number-1) mod 7
if number<>0 then
number=7-number
for i=1 to number
tflinkstr=tflinkstr & "| | "
next
tflinkstr=tflinkstr & " "
end if
response.write tflinkstr
tflinkstr=""
end if
%>
|
|