DaniWeb Forum Index > Web Development > ASP

repeat region into declared variable (jmail body)

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Mar 2005

Posts: 131

Reputation: william_stam is an unknown quantity at this point

Solved Threads: 2

william_stam william_stam is offline

Offline

Junior Poster

repeat region into declared variable (jmail body)

Mar 22nd, 2005

Hi

I have an application that sends an email based on the results of the recordset.

How do you get a repeat region (loop) into the body of a email.

<%
Name = "Press-Store"
SenderEmail = "awsdesigns@gmail.com"
Subject = "Press-Store ~ File Uploaded ("&filename&" - "&SetBytes&")"
Recipient = (RSp.Fields.Item("email").Value)
Body =

:cry:
'this bit i need in the declared variable (Body)

<%
While ((Repeat3__numRows <> 0) AND (NOT RSfiles.EOF))
%>
<%=(RSfilesus.Fields.Item("filename").Value)%><p>
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
RSfiles.MoveNext()
Wend
%>
:rolleyes:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.ContentType = "text/html"
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
%>

I know this code is far from right but it is basicaly what i need help with

•

Join Date: Feb 2005

Posts: 1,181

Reputation: hollystyles will become famous soon enough

Solved Threads: 67

hollystyles hollystyles is offline

Offline

Veteran Poster

Re: repeat region into declared variable (jmail body)

Mar 22nd, 2005

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
Body = ""
 
 
<%
While ((Repeat3__numRows <> 0) AND (NOT RSfiles.EOF))
 
Body = Body & RSfilesus.Fields.Item("filename").Value & "<p>"
 
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
RSfiles.MoveNext()
Wend
%>
Body = ""


<%
While ((Repeat3__numRows <> 0) AND (NOT RSfiles.EOF))

Body = Body & RSfilesus.Fields.Item("filename").Value & "<p>"

Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
RSfiles.MoveNext()
Wend
%>