Hello,
I have the following piece of code that for some reason does not display the
last record in the recordset, and if there is only one record in the
recordset it does not display that one (as it is also the last record in the
set) Any help would be greatly apprecitated.
WHILE NOT Enrollee.EOF
Response.write "<tr>" & vbCRLF
If CurrentEnrollee = TRIM(Enrollee("CDIPIN")) THEN
Name = " "
NewEn = " "
ELSE
CurrentEnrolleeSignUpDate = Enrollee("SignUpDate")
Name = Enrollee("Fname") & " " & Enrollee("Lname")
CurrentEnrollee = TRIM(Enrollee("CDIPIN"))
j = j + 1
if (j mod 2) = 0 then
color = "#FFCCCC"
ELSE
color = "#CCCCFF"
END IF
END IF
Response.write "<td bgcolor=""" & color & """><B>" & NAME & "</b></td>" &
vbCRLF
Response.write "<td bgcolor=""" & color & """><B>" &
TRIM(Enrollee("CDIPIN")) & "</b></td>" & vbCRLF
Response.write "<td bgcolor=""" & color & """ align=""right"">" &
TRIM(Enrollee("ProductCode")) & "</td>" & vbCRLF
if ISNULL(Enrollee("DateOrdered")) THEN
Response.write "<td bgcolor=""" & color & """
align=""right""><B> </b></td>" & vbCRLF
ELSE
Response.write "<td bgcolor=""" & color & """ align=""right""><B>" &
FormatDateTime(Enrollee("DateOrdered"),2) & "</b></td>" & vbCRLF
END IF
Response.write "</tr>" & vbCRLF
Enrollee.MoveNext
WEND
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
