'Loop' recordset and send by email 2

perryair · Feb 4, 2006

Hi All,
Below are the objMail that I need to send by email using ASPmail, when I send this form I receive only 1 record from the SQL database and it seems the 'rsProd.MoveNext' and 'wend' doesn't work properly.
Can you point me to the right direction how to 'Loop' this recordset.

set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInf

pen "balls", Conn, adOpenStatic, adLockOptimistic, adCmdTable

intTotal = 0

rsProd.MoveFirst
do while not rsProd.EOF
rsProdInfo.MoveFirst
rsProdInfo.Find "productID = " & rsProd("productID")
intProdID = rsProdInfo("catalogID")
intProdIDshow = rsProdInfo("productID")
intImgNumber = rsProdInfo("ImgNumber")
intMKT = rsProdInfo("MKT")
strProdName = rsProdInfo("itemname")
intPrice = formatNumber(rsProdInfo("productPrice"), 2)
intQuant = rsProd("quantity")
intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intExtPrice

sBody = "<html dir=ltr>" & _
"<head>" & _
"</head>" & _
"<body >" & _
"<tr>" & _
"<td width=15" & "%" & " valign=center align=center style=border: 1px solid #E1E2CB; nowrap>" & intQuant & "</td>" & _
"<td width=15" & "%" & " valign=center align=center style=border: 1px solid #E1E2CB; nowrap><a href=index.asp?intCatalogID=" & intProdID & "&" & "pid=" & intImgNumber & ">" & intMKT& "</a></td>" & _
"<td width=37" & "%" & " valign=center align=center style=border: 1px solid #E1E2CB; nowrap><a href=index.asp?intCatalogID=" & intProdID & "&" & "pid=" & intImgNumber & ">" & strProdName & "</a></td>" & _
"<td width=17" & "%" & " valign=center align=center style=border: 1px solid #E1E2CB; nowrap>" & intPrice & " $</td>" & _
"<td width=15" & "%" & " valign=center align=center style=border: 1px solid #E1E2CB; nowrap>" & intExtPrice & " $</td>" & _
"</tr>" & _
"<input type=hidden name=strOrderItem value=" & intProdIDshow & "," & intQuant & ">" & _
"</body>" & _
"</html>"

rsProd.MoveNext
wend

Dim objMail
strEmail = Request.Form("strEmail")
sSubject = "test"

Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.RemoteHost = "mail.mydomain.com" ' Specify a valid SMTP server
objMail.FromAddress = "admin@mydomain.com"
objMail.FromName = "My Name"
objMail.Recipient = strEmail
objMail.Subject = sSubject
objMail.BodyText = sBody

objMail.ContentType = "text/html"
objMail.Priority = 0
objMail.SendMail
Set objMail = Nothing

onpnt · Feb 4, 2006

umm..I think this may have soemthing to do with it

Code:

             rsProd.MoveFirst
             do while not rsProd.EOF
                 rsProdInfo.MoveFirst

perryair · Feb 4, 2006

Where?
I have it in my code, can you explain please?

Thanks.

johnwm · Feb 4, 2006

Looks like you have a 'Do...Wend' Loop!

Use EITHER :
Do While Not rs.EOF
...
...
Loop

OR:
While Not rs.EOF
...
...
Wend

Do...While is probably more commonly used nowadays

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller

perryair · Feb 7, 2006

Works fine, Thank you all...

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

'Loop' recordset and send by email 2

perryair

IS-IT--Management

onpnt

Programmer

perryair

IS-IT--Management

johnwm

Programmer

perryair

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor