Dian,
I would just loop through the photos and run a caption query for each photo.
For instance...
Get PhotoRS("Select * from Photos")
Do while not PhotoRS.eof
Get CurrentPhotoID
Get CaptionRS("Select * from Captions where PhotoID = " & CurrentPhotoID)
Do while not CaptionRS.eof
Get Caption
Print Caption
Loop
PhotoRS.movenext
Loop
Alternately you can query all photos and all captions into data sets or arrays and
sort them out for printing.
Hope that helps,
Matias
-----Original Message-----
From: Dian Chapman [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 22, 2004 2:09 AM
To: Group - ASP
Subject: [ASP] Well, THAT's not gonna work!
Hi folks...
I was just working away on a fun, little project...thinking what I wanted to do would
be easy...when I realize that what I was thinking was totally off the mark! Now I
can't think of how to do this simple thing...that, apparently, might not be simple?
Scenario...a simple Access DB with two tables. One for Pictures w/ID, PictureNum. The
second table is Captions w/ID, PictureNum, Captions.
All I was hoping to do was allow staff to insert captions to some party pics I just
got, submit the captions to a DB and then have the page regenerate, pulling all the
captions and tossing them through a loop under each photo.
The problem is that there are 50 pics and each caption has to be set to fall under the
correct photo. I have the query pulling everything from the two tables with the
PictureNum being the match for the tables...but when I moved to the first pic and
started to add the <%=RS(.... code, I realize...so how the hell do I do this?
And for ONCE I have the quotes right.<g> Cos' the page is coming out okay, but, of
course, I'm getting ALL the captions under all the pictures. So I'm not pulling the
individual number correctly...in fact, I have NO IDEA how/if I can do this???
How can I pull all the captions for Pic # 1 and loop them in this cell...and all the
captions for # 2 and loop them in that cell???
Here's the query:
RS.Open "SELECT * FROM Pictures, Captions WHERE Pictures.ID=Captions.PictureNum",
Conn, 1, 3
And here's the insert code I have so far...which isn't right....
<%If RS("Captions.PictureNum") = 1 Then
Do Until RS.EOF
Response.Write("<span
class='sanserifTextBLUEMedBoldCopy'><b>Caption: </b></span>") &
RS("Caption") & ("<br>")
RS.MoveNext
Loop
End If%>
TIA for any help...
Dian ~
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.722 / Virus Database: 478 - Release Date: 7/18/2004
------------------------ Yahoo! Groups Sponsor --------------------~--> Yahoo! Domains
- Claim yours for only $14.70 http://us.click.yahoo.com/Z1wmxD/DREIAA/yQLSAA/17folB/TM
--------------------------------------------------------------------~->
---------------------------------------------------------------------
Home : http://groups.yahoo.com/group/active-server-pages
---------------------------------------------------------------------
Post : [EMAIL PROTECTED]
Subscribe : [EMAIL PROTECTED]
Unsubscribe: [EMAIL PROTECTED]
---------------------------------------------------------------------
Yahoo! Groups Links
------------------------ Yahoo! Groups Sponsor --------------------~-->
Yahoo! Domains - Claim yours for only $14.70
http://us.click.yahoo.com/Z1wmxD/DREIAA/yQLSAA/17folB/TM
--------------------------------------------------------------------~->
---------------------------------------------------------------------
Home : http://groups.yahoo.com/group/active-server-pages
---------------------------------------------------------------------
Post : [EMAIL PROTECTED]
Subscribe : [EMAIL PROTECTED]
Unsubscribe: [EMAIL PROTECTED]
---------------------------------------------------------------------
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/active-server-pages/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
