|
|
Choose your "freebie" below
Use guidance if you need help
|
<%
if not rs.BOF then
rs.MoveFirst ()
end if
index=1
while not rs.EOF %>
|
<%=rs("story_ltitle")%> |
<%
set rsmood=server.CreateObject("adodb.recordset")
sqlmood="select mode_id, mode_picture from mode where mode_id = '"&rs("mode1")&"' or mode_id = '"&rs("mode2")&"' or mode_id = '"&rs("mode3")&"'"
rsmood.Open sqlmood,conn,1,3
while not rsmood.EOF
set rsdes=server.CreateObject("adodb.recordset")
sqldes="select description from mode_detail where mode_id = '"&rsmood("mode_id")&"'"
rsdes.Open sqldes,conn,1,3
if not rsdes.EOF then
description = rsdes("description")
end if
rsdes.Close
set rsdes = nothing
%>
 " border=0 width=41 height=41 alt="<%=description%>"> |
<%
rsmood.MoveNext
wend
rsmood.Close
set rsmood = nothing
%>
|
|
|
written by: |
<%
author_id=rs("author")
set rs1=server.CreateObject("adodb.recordset")
sql1="select contb_fname, contb_lname from contributor where contb_id = '"& author_id &"'"
rs1.Open sql1,conn,1,3
if not rs1.EOF then
Response.Write (rs1("contb_fname")&" "&rs1("contb_lname"))
%>
<%
end if%>
|
|
illustrated by: |
<%
illustrator_id = rs("illustrator")
set rs2=server.CreateObject("adodb.recordset")
sql2="select contb_fname, contb_lname from contributor where contb_id = '"& illustrator_id &"'"
rs2.Open sql2,conn,1,3
if not rs2.EOF then
Response.Write (rs2("contb_fname")&" "&rs2("contb_lname"))
%>
<%
end if%>
|
|
|
|
|
|
<%
rs.MoveNext
index=index+1
wend
%>
|
|
|
<%call visitor_right()%>
|
|
