close ad
 
Important WebAssist Announcement
open ad
View Menu

Technical Support Forums

Free, outstanding support from WebAssist and your colleagues

rating

Error in Repeat Region in Mail Body

Thread began 11/12/2009 11:54 am by markdoyle87077 | Last modified 11/12/2009 2:30 pm by Jason Byrnes | 1597 views | 3 replies |

markdoyle87077

Error in Repeat Region in Mail Body

In the attached file the function WA_Universal_Email_2_SendMail(RecipientEmail) does not work how I want it to. I want the email to show the details of a rsBackOrdesr recordset. It works fine if I want it to display only one record but when I apply a repeat region to the recordset it does not show any records.

Could you kindly point me in the right direction.

Attached Files
emailorder.zip
Sign in to reply to this post

Jason ByrnesWebAssist

Try changing this code:

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

MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & " <tr>" & vbCrlf & ""
MailBody = MailBody & " <td height=" & Chr(34) & "22" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("itemnumber").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td>"
MailBody = MailBody & (rsBackOrders.Fields.Item("description").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("packquantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("price").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("quantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("totalprice").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " </tr>" & vbCrlf & ""
MailBody = MailBody & " "

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






to:

While ((NOT rsBackOrders.EOF)) 

MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & " <tr>" & vbCrlf & ""
MailBody = MailBody & " <td height=" & Chr(34) & "22" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("itemnumber").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td>"
MailBody = MailBody & (rsBackOrders.Fields.Item("description").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("packquantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("price").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("quantity").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " <td align=" & Chr(34) & "right" & Chr(34) & " valign=" & Chr(34) & "top" & Chr(34) & ">"
MailBody = MailBody & (rsBackOrders.Fields.Item("totalprice").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & " </tr>" & vbCrlf & ""
MailBody = MailBody & " "
rsBackOrders.MoveNext()

Wend
Sign in to reply to this post

markdoyle87077

Error in Repeat Region in Mail Body

Hi Jason,

Thats worked a treat, will UE get updated so this does not happen or will i have to modify my code after each update.

Kind regards.

Sign in to reply to this post

Jason ByrnesWebAssist

I have logged a bug so this will get looked into for the next update.

Sign in to reply to this post

Build websites with a little help from your friends

Your friends over here at WebAssist! These Dreamweaver extensions will assist you in building unlimited, custom websites.

Build websites from already-built web applications

These out-of-the-box solutions provide you proven, tested applications that can be up and running now.  Build a store, a gallery, or a web-based email solution.

Want your website pre-built and hosted?

Close Windowclose

Rate your experience or provide feedback on this page

Account or customer service questions?
Please user our contact form.

Need technical support?
Please visit support to ask a question

Content

rating

Layout

rating

Ease of use

rating

security code refresh image

We do not respond to comments submitted from this page directly, but we do read and analyze any feedback and will use it to help make your experience better in the future.

Close Windowclose

We were unable to retrieve the attached file

Close Windowclose

Attach and remove files

add attachmentAdd attachment
Close Windowclose

Enter the URL you would like to link to in your post

Close Windowclose

This is how you use right click RTF editing

Enable right click RTF editing option allows you to add html markup into your tutorial such as images, bulleted lists, files and more...

-- click to close --

Uploading file...