ASP Repeat Region and Strings

Question

spence89 0 Light Poster

14 Years Ago

Hi guys,

I've just managed to get 99% of a script running for my website. I am creating a system where a user can create an invoice using our billing system, and then download it via PDF.

I am using Persists PDF module and I have got it all working. However, there is just one thing I am unable to figure out. I can't seem to repeat a particular part of the string used by the PDF module. I am using dynamic data successfully to populate the data created in the PDF, but my repeat region refuses to repeat my row in the table.

The first row is shown fine in the PDF, but the subsequent rows fail to show.

My code currently looks like this:

...last part of my string"
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT Products.EOF))
%>
<% Body2 = "<tr><td width=""80%"" class=""PicBorder""><div align=""left"" class=""BodyTextSmaller"">" & Products("Name").Value & " - " & Products("BillingCycle").Value & "</div></td><td width=""20%"" class=""PicBorder""><div align=""left"" class=""BodyTextSmaller"">&pound;" & Products("ProductCost").Value & "</div></td></tr>" 
%>
<%
Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Products.MoveNext()
  Wend 
%>
<%
Doc.ImportFromUrl Body & Body2 + "...last part of my final section of my string

I am using ASP VB and MySQL 4 databases. As I said, I have figured out everything on my own so far, but this one has me stumped!

Thanks in advance,
Adam

asp pdf visual-basic

Edited 14 Years Ago by spence89 because: n/a

4 Contributors
28 Replies
502 Views
6 Months Discussion Span
Latest Post 13 Years Ago Latest Post by spence89

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

ArtistScope -5 Junior Poster · Answer 1 · 2010-10-22T15:32:23+00:00

At what stage is the PDF created? Wouldn't it be better to complete the construction of the invoice data and then send to PDF?

spence89 0 Light Poster · Answer 2 · 2010-10-22T17:06:02+00:00

Hi there,

Thanks for your reply, but the code does contruct the data first, and then sends it to the PDF create command. The trouble is, I have to break up the string in order to get the repeat region code to work.

Regards,
Adam

spence89 0 Light Poster · Answer 3 · 2010-10-23T03:43:45+00:00

spence89 0 Light Poster

14 Years Ago

Any ideas guys? :)

spence89 0 Light Poster · Answer 4 · 2010-10-31T18:34:12+00:00

spence89 0 Light Poster

14 Years Ago

**bump**

ArtistScope -5 Junior Poster · Answer 5 · 2010-10-31T19:19:10+00:00

This looks like code intended for pagination of results, and not record rows.

spence89 0 Light Poster · Answer 6 · 2010-10-31T20:14:31+00:00

Hi AS,

The code is normally used to displays the rows in a table, based on the criterea of the recordset. The code usually works when used in normal conditions but not when already in a ASP script that uses a string.

Any ideas? Many thanks.

ArtistScope -5 Junior Poster · Answer 7 · 2010-10-31T20:37:34+00:00

Line 9-12 are unnecessarily complicated. Better to use a simple row return. No increment or count is required...

if not rsProduct.EOF then
   response.write" Your row stuff"
end if

spence89 0 Light Poster · Answer 8 · 2010-10-31T23:13:47+00:00

Hi AS,

Thanks for your help.

As far as I know the code you suggested wouldn't repeat the rows in the table one after another would it?

The code I'm using is a repeat region, and I want the code to display multiple rows that are based from the criterea in the recordset.

Do we have our wires crossed somewhere? I do appreciate the help though :)

ArtistScope -5 Junior Poster · Answer 9 · 2010-11-01T00:24:38+00:00

It will return every row that meets the criteria. For example...

response.write"<table>"

SQLAuthor = "SELECT * FROM Users Order By ID ASC "
Set rsAuthor = dbConnection.Execute(SQLAuthor)	
if NOT rsAuthor.EOF then

response.write"<tr>"
response.write"<td>" & rsAuthor("ID").value & "</td>"
response.write"<td>" & rsAuthor("Author").value & "</td>"
response.write"<td>" & rsAuthor("Firstname").value & "</td>"
response.write"<td>" & rsAuthor("Lastname").value & "</td>"
response.write"<td>" & rsAuthor("Active").value & "</td>"
response.write"</tr>"

end if
rsAuthor.Close
Set rsAuthor = Nothing

response.write"</table>"

The above example will return a table row for every author in the database.

ArtistScope -5 Junior Poster · Answer 10 · 2010-11-01T00:25:39+00:00

ArtistScope -5 Junior Poster

14 Years Ago

I fixed an error but now cannot delete this post :-(

Edited 14 Years Ago by ArtistScope because: n/a

spence89 0 Light Poster · Answer 11 · 2010-11-01T06:29:15+00:00

Hi AS,

Would that interfere with the string? The data I have is a string and cannot be broken. That's the trouble with it you see because the whole HTML is a string, the ASP also needs to be put into the string which is causing me problems. If this was a normal page I wouldn't need to ask for help hehe.

I'm trying to get working the ASP PDF component and got everything working dynamically apart from the repeat region.

Many thanks,
Adam

ArtistScope -5 Junior Poster · Answer 12 · 2010-11-01T11:02:48+00:00

This is not a string...

While ((Repeat1__numRows <> 0) AND (NOT Products.EOF))....

But it is a lot of unnecessary code that can be replaced using the simple example that I gave.

Try it.

spence89 0 Light Poster · Answer 13 · 2010-11-10T06:32:21+00:00

Hi AS,

I tried the code you suggested, but I didn't specify the recordset becuase that has already been done above.

Once I updated the code with your code, no rows appear at all. I now have this code below:

height=""30"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Amount</strong></div></td></tr>"

While ((Repeat1__numRows <> 0) AND (NOT Products.EOF))

If NOT Products.EOF then

Response.write"<tr>"
Response.write"<td width=""80%"" class=""PicBorder"">"
Response.Write"<div align=""left"" class=""BodyTextSmall"">" & Products.Fields.Item("MoreInfo").Value & " - " & Products.Fields.Item("BillingCycle").Value & "</div>"
Response.write"</td>"
Response.write"<td width=""20%"" class=""PicBorder"">"
Response.write"<div align=""left"" class=""BodyTextSmall"">&pound;" & Products.Fields.Item("ProductCost").Value & "</div>"
Response.write"</td>"
Response.write"</tr>"

end if
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Products.MoveNext()
Wend 

Doc.ImportFromUrl Body & Body2 + "</table><img src=""http://www.silverlinewe

Any ideas? Have I done something wrong?

ArtistScope -5 Junior Poster · Answer 14 · 2010-11-10T08:10:11+00:00

This is not what I recommended at all. It should not include wend, repeat, etc. It's not needed.

spence89 0 Light Poster · Answer 15 · 2010-11-10T09:15:38+00:00

Hi,

This is the code I have now. As I said I do not need the code for the recordset as it has already been defined above the code.

</div></td></tr>"

If NOT Products.EOF then

Response.write"<tr>"
Response.write"<td width=""80%"" class=""PicBorder"">"
Response.Write"<div align=""left"" class=""BodyTextSmall"">" & Products.Fields.Item("MoreInfo").Value & " - " & Products.Fields.Item("BillingCycle").Value & "</div>"
Response.write"</td>"
Response.write"<td width=""20%"" class=""PicBorder"">"
Response.write"<div align=""left"" class=""BodyTextSmall"">&pound;" & Products.Fields.Item("ProductCost").Value & "</div>"
Response.write"</td>"
Response.write"</tr>"

end if

Doc.ImportFromUrl Body + "</table>

I appreciate your help.

jie7412 0 Newbie Poster · Answer 16 · 2010-11-13T16:08:32+00:00

jie7412 0 Newbie Poster

14 Years Ago

how i can do for you， but 顶……

spence89 0 Light Poster · Answer 17 · 2010-11-13T18:24:03+00:00

how i can do for you， but 顶……

Sorry?

Your post makes no sense.

spence89 0 Light Poster · Answer 18 · 2011-02-07T07:31:34+00:00

Hi,

Does any one have a solution? I am still searching for a way to get this working. Will no one else help me? Any suggestions, please?

Regards,
Adam

spence89 0 Light Poster · Answer 19 · 2011-02-07T07:31:49+00:00

Hi,

Does any one have a solution? I am still searching for a way to get this working. Will no one else help me? Any suggestions, please?

Regards,
Adam

spence89 0 Light Poster · Answer 20 · 2011-02-07T08:32:00+00:00

I just found this thread which is almost exactly the same as my issue, but I need a string after the asp code is called. Is there a way I can achieve what was done in this thread with my own code?

http://www.daniweb.com/forums/thread20665.html

Many thanks,
Adam

ArtistScope -5 Junior Poster · Answer 21 · 2011-02-22T04:06:01+00:00

If this problem is no longer related to the original post (create PDF from data and save to disk, then send email with PDF attached), can you redefine the problem in detail.

spence89 0 Light Poster · Answer 22 · 2011-02-22T04:15:59+00:00

ArtistScope,

The problem I am having still stands. I am unable to repeat the rows in my recordset when creating a PDF document. The PDF document is dynamically populated, and then sent to the browser for download. The PDF is properly formatted how I want it to be, and all data is correctly created, however, the repeat region is not working properly and if multiple rows are found for the criteria then only one row is generated, thus ignoring the rest.

See my previous replies for the details on this problem. Simply put, everything is working apart from the fact that only one row is printed on the PDF, rather than 3 or 4 if required.

Am I making sense? I do appreciate all the help.

Kind Regards,
Adam

ArtistScope -5 Junior Poster · Answer 23 · 2011-02-22T05:13:34+00:00

Apparently you are creating a PDF (1) and sending by email (2) and making it available for download (3)?

It may help you to clarify things by keeping these operations separate:

1. Create the PDF and save to disk using a unique name (invoice number?).
2. Send the email with the PDF as an attachment.
3. Provide a download link on the page pointing to the PDF.

Starting with step 1, why do you need to use a repeat region?

spence89 0 Light Poster · Answer 24 · 2011-02-22T05:22:23+00:00

Hi,

The process is almost there, but instead of saving the PDF to disk, I am automatically sending the PDF for download once it is created. Nothing is emailed (although it might become a possibilty if I wanted it to).

The reason for using a repeat region is to be able to display products in an invoice. The first row generated by the recordset is fine, but the subsequent rows simply do not show.

I am happy to post all my code if required.

Thanks,
Adam

ArtistScope -5 Junior Poster · Answer 25 · 2011-02-22T05:41:54+00:00

You cannot download a file unless it exists, so you need to save it to disk, and then provide a link to it.

Yes, post your current code.

I'll be offline for a few hours but can look at it later.

spence89 0 Light Poster · Answer 26 · 2011-05-07T18:35:16+00:00

Hi AS,

Sorry I didn't post back for a long time, I've been busy with other websites and I've also recently moved house.

Here is my code for the whole script. Bare in mind that the recordset works fine, and the dynamic text works perfectly, only the repeat region doesn't.

<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Products_numRows = Products_numRows + Repeat1__numRows
%>
<% 
Dim Body2

While ((Repeat1__numRows <> 0) AND (NOT Products.EOF)) 

Body2 = "<tr><td width=""80%"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall"">" & Products.Fields.Item("MoreInfo").Value & " - " & Products.Fields.Item("BillingCycle").Value & "</div></td><td width=""20%"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall"">&pound;" & Products.Fields.Item("ProductCost").Value & "</div></td></tr>"

  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Products.MoveNext()
Wend

%>
<%
Set Pdf = Server.CreateObject("Persits.Pdf")
' Use direct HTML feed. The argument string must contain "<html>"
Set Doc = Pdf.CreateDocument
Body = "<html xmlns=""http://www.w3.org/1999/xhtml""><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" /><title>Invoice</title><link href=""http://www.silverlinewebsolutions.co.uk/CSS.css"" rel=""stylesheet"" type=""text/css"" /><link href=""http://www.silverlinewebsolutions.co.uk/Text.css"" rel=""stylesheet"" type=""text/css"" /></head><body><table width=""85%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr><td width=""10%"" height=""130"" valign=""top""><img src=""http://www.silverlinewebsolutions.co.uk/Images/Logo.jpg"" alt=""Silverline Web Solutions"" width=""120"" height=""120"" /></td><td width=""45%"" height=""130"" valign=""top""><div align=""left""><p><span class=""BodyTextLarge""><strong>Silverline Web Solutions</strong></span><br /><span class=""BodyTextSmall"">103 Norwich Road<br />Wroxham<br />Norwich, Norfolk<br />NR12 8RY<br />United Kingdom</span></p></div></td><td width=""45%"" valign=""top""><table width=""100%"" border=""0"" class=""InvoiceBorder"" align=""right"" cellpadding=""0"" cellspacing=""0""><tr><td class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Invoice Date </strong></div></td><td class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Invoice Number </strong></div></td></tr><tr><td class=""PicBorder""><div align=""center"" class=""BodyTextSmaller""><div align=""left"">" & InvoiceDetails("StartDate").Value & "</div></div></td><td class=""PicBorder""><div align=""center"" class=""BodyTextSmaller""><div align=""left"">" & InvoiceDetails("InvoiceID").Value & "</div></div></td></tr><tr><td class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Payment Status </strong></div></td><td class=""PicBorder""><div align=""left"" class=""BodyTextSmall"">" & InvoiceDetails("Status").Value & "<br /><span class=""BodyTextSmaller"">" & InvoiceDetails("DatePaid").Value & "</div></td></tr><tr><td height=""40"" colspan=""2"" valign=""bottom"" class=""BodyTextSmall"">&nbsp;</td></tr></table></td></tr><tr><td colspan=""3""><img src=""http://www.silverlinewebsolutions.co.uk/Images/spacer.gif"" alt=""Invoice Details"" width=""100%"" height=""20"" /><table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0"" class=""PicBorder""><tr><td width=""30"" class=""BodyTextSmall""><div align=""left""><strong>Invoice To: </strong></div></td><td class=""BodyTextSmall""><div align=""left""><strong>Notes:</strong></div></td></tr><tr><td width=""60%"" class=""BodyTextSmall""><div align=""left"">" & User("FName").Value & "&nbsp;" & User("LName").Value & "<br />" & User("Address1").Value & "," & User("Address2").Value & "<br />" & User("Town").Value & ",&nbsp;" & User("County").Value & "<br />" & User("Postcode").Value & "<br />" & User("Country").Value & "</div></td><td width=""40%"" valign=""top"" class=""BodyTextSmaller""><div align=""left"">None</div></td></tr></table><img src=""http://www.silverlinewebsolutions.co.uk/Images/spacer.gif"" alt=""Invoice Details"" width=""100%"" height=""20"" /><table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr><td width=""80%"" height=""30"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Product Description </strong></div></td><td width=""20%"" height=""30"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><strong>Amount</strong></div></td></tr>"

Body3 = "</table><img src=""http://www.silverlinewebsolutions.co.uk/Images/spacer.gif"" alt=""Invoice Details"" width=""100%"" height=""20"" /></td></tr><tr><td colspan=""3""><div align=""right"" class=""BodyTextSmall""><table width=""100%"" border=""0"" cellpadding=""4"" cellspacing=""0""><tr><td width=""60%"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><div align=""left"" class=""BodyTextSmaller""><p>If you have any questions or queries about payment this invoice please don't hesitate to contact us. Either visit our website at www.silverlinewebsolutions.co.uk or email us at admin@silverlinewebsolutions.co.uk.</p><p class=""BodyTextSmaller""><strong>Note: </strong>invoices must be settled on or before the invoice date to avoid late payment charges.</p></div></div></td><td width=""20%"" valign=""top"" class=""PicBorder""><div class=""BodyTextSmall"" align=""right""><p>&nbsp;</p><p><strong> Total:</strong></p></div></td><td width=""20%"" valign=""top"" class=""PicBorder""><div align=""left"" class=""BodyTextSmall""><p>&nbsp;</p><p>&pound;" & InvoiceDetails("Total").Value & "</p></div></td></tr></table></div></td></tr></table></body></html>"

Dim All

All = Body & Body2 & Body3

Doc.ImportFromUrl All

Filename = Doc.Savehttp("attachment;filename=Invoice ("& InvoiceDetails("InvoiceID") & ").pdf")
%>

Thank you again for the help!

Adam

floody 0 Newbie Poster · Answer 27 · 2011-05-10T14:33:08+00:00

Repeat1__numRows=Repeat1__numRows-1
Why is this value decreasing? It already starts at -1?

spence89 0 Light Poster · Answer 28 · 2011-05-11T13:51:57+00:00

Hi Flood,

Not sure, it was the code that was generated by Dreamweaver. It seems to work on the asp vb page, so I copied the code and tried to use it in my script, but with no luck :(