| |
<%
x=0
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.open dsn
sql = "select * from subjects"
rs.Open SQL, Conn, 1, 3
subjectCount = rs.recordCount
do while not rs.eof
result = x mod 1
if x=1 and result=0 then
response.write "|
"
x=0
end if
response.write ""
%> <%
response.write ""&rs("name")&" »
"
response.write " | "
x = x +1
rs.movenext
loop
%>
|
| <%
x=0
set conn2=server.createobject("adodb.connection")
set rs2=server.createobject("adodb.recordset")
conn2.open dsn
sql2 = "select * from subjects where id="&subjectID
rs2.open sql2,conn2
do while not rs2.eof
result = x mod 3
if x=3 and result=0 then
'response.write " | "
x=0
end if
'response.write "| "
response.write ""&rs2("name")&""%>
<%
'response.write " | "
x = x +1
rs2.movenext
loop
call close()
%>
Click
on the design below to select
|
|
|
<%
x=0
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn
sql = "select * from postcard where subjectID="&subjectID
rs.open sql,conn
do while not rs.eof
result = x mod 3
if x=3 and result=0 then
response.write " "
x=0
end if
response.write ""
%>
"> " border="0" alt="">
<%
response.write " | "
x = x +1
rs.movenext
loop
call close()
%>
|
