Displaying Single value from GetRows Array

I am getting a resultset using .GetRows()

Every record has a RegName, ReggdName, RegDate

So if I go and register 4 users, the resultset returns

kevp75    OtherName    6/11/2008
kevp75    OtherName1    6/11/2008
kevp75    OtherName2   6/11/2008
kevp75    OtherName3    6/11/2008


how can I make it so only the first instance of kevp75 shows?
LVL 25
kevp75Asked:
Who is Participating?
 
jmundsackConnect With a Mentor Commented:
Is the output in a <table>?

If so:

<%
' warning: air code
Dim arrData
Dim i
Dim strCurrName
strCurrName = ""
' missing: code to load recordset into arrData using GetRows
Response.Write "<table>"
Response.Write "<th>RegName</th>"
Response.Write "<th>ReggdName</th>"
Response.Write "<th>RegDate</th>"
For i = LBound(arrData, 2) To UBound(arrData, 2)
    Response.Write "<tr>"
    If strCurrName <> arrData(0, i) Then
        strCurrName = arrData(0, i)
        Response.Write "<td>" & strCurrName & "</td>"
    Else
        Response.Write "<td>&nbsp;</td>"
    End If
    Response.Write "<td>" & arrData(1, i) & "</td>"
    Response.Write "<td>" & arrData(2, i) & "</td>"
    Response.Write "</tr>"
Next
Response.Write "</table>"
%>

Open in new window

0
 
kevp75Author Commented:
in other words, I want to take this:
kevp75    OtherName    6/11/2008
kevp75    OtherName1    6/11/2008
kevp75    OtherName2   6/11/2008
kevp75    OtherName3    6/11/2008

and turn it into this:

kevp75    OtherName    6/11/2008
                OtherName1    6/11/2008
                OtherName2   6/11/2008
                OtherName3    6/11/2008
0
 
hieloCommented:
k=rs.GetRows(1,0)

Response.Write( k(0,0)) 'kev75
Response.Write( k(0,1) ) 'OtherName
Response.Write( k(0,2) ) '6/11/2008
0
Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

 
kevp75Author Commented:
hielo.  I need to get all the rows.  please see my second post....

also...

it will show different users for the first name on it...so like this:

kevp75    OtherName    6/11/2008
kevp75    OtherName1    6/11/2008
kevp75    OtherName2   6/11/2008
kevp75    OtherName3    6/11/2008
me75    OtherName1    6/11/2008
me75    OtherName11    6/11/2008
me75    OtherName12   6/11/2008
me75    OtherName13    6/11/2008

needs to be like:

kevp75    OtherName    6/11/2008
                OtherName1    6/11/2008
                OtherName2   6/11/2008
                OtherName3    6/11/2008
me75    OtherName1    6/11/2008
             OtherName11    6/11/2008
             OtherName12   6/11/2008
             OtherName13    6/11/2008
0
 
kevp75Author Commented:
code:

please assume this resides in between a With Response block
<%
set rs = Conn.Execute(strSql)
	if not(rs.eof) then
		urArr = rs.getrows()
	end if
set rs = Nothing
.write("<div style=""margin:0 auto;width:800px;padding:15px 0 15px 0;font-weight:bold;"">Registrations</div>" & vbcrlf)
if isarray(urArr) then 'make sure it's an array first
	.write("<table cellpadding=""2"" cellspacing=""0"" style=""width:800px;border-top:1px solid #333;border-right:1px solid #333;border-left:1px solid #333;margin:0 auto;"">" & vbcrlf)
	.write("	<tr>" & vbcrlf)
	.write("		<td colspan=""4""><strong>Event ID: </strong>" & tmp_Event_ID & "</td>" & vbcrlf)
	.write("	</tr>" & vbcrlf)
	.write("	<tr>" & vbcrlf)
	.write("		<td colspan=""4""><strong>Event Name: </strong>" & tmp_Event_Name & "</td>" & vbcrlf)
	.write("	</tr>" & vbcrlf)
	.write("	<tr>" & vbcrlf)
	.write("		<td colspan=""4""><strong>Event Date/Time: </strong>" & tmp_Event_Date & "</td>" & vbcrlf)
	.write("	</tr>" & vbcrlf)
	.write("	<tr>" & vbcrlf)
	.write("		<td style=""width:33%;font-weight:bold;border-bottom:1px solid #333;border-top:1px solid #333;background:#DDD;"">Registered By</td>" & vbcrlf)
	.write("		<td style=""width:33%;font-weight:bold;border-bottom:1px solid #333;border-top:1px solid #333;background:#DDD;"">Member Name</td>" & vbcrlf)
	.write("		<td style=""width:33%;font-weight:bold;border-bottom:1px solid #333;border-top:1px solid #333;background:#DDD;"">Birthdate</td>" & vbcrlf)
	.write("		<td style=""font-weight:bold;border-bottom:1px solid #333;text-align:center;border-top:1px solid #333;background:#DDD;"" nowrap>Headcount</td>" & vbcrlf)
	.write("	</tr>" & vbcrlf)
	.write("" & vbcrlf)
	tmp_Count = 0
	totRHC = 0
	for i = 0 to ubound(urArr,2) 'write out the individual rows for the registered users
		totRHC = totRHC + urArr(2,i)
		uRegged = urArr(6,i)
		.write("	<tr>" & vbcrlf)
		.write("		<td style=""width:33%;border-bottom:1px solid #333;"">" & uRegged & tmp_Count & "&nbsp;</td>" & vbcrlf)
		.write("		<td style=""width:33%;border-bottom:1px solid #333;"">" & urArr(5,i) & "&nbsp;</td>" & vbcrlf)
		.write("		<td style=""width:33%;border-bottom:1px solid #333;"">" & ubd(urArr(1,i)) & "&nbsp;</td>" & vbcrlf)
		.write("		<td style=""border-bottom:1px solid #333;text-align:center;"" nowrap>" & urArr(2,i) & "&nbsp;</td>" & vbcrlf)
		.write("	</tr>" & vbcrlf)
		next : i = Null : uRegged = Null: tmp_Count = Null
	.write("	<tr>" & vbcrlf)
	.write("		<td colspan=""3"" style=""font-weight:bold;background:#DDD;text-align:right;border-bottom:1px solid #333;"">Total Headcount:</td>" & vbcrlf)
	.write("		<td style=""font-weight:bold;background:#DDD;text-align:center;border-bottom:1px solid #333;"">" & totRHC & "</td>" & vbcrlf)
	.write("	</tr>" & vbcrlf)
	.write("</table>" & vbcrlf)
	Erase urArr
end if

Open in new window

0
 
kevp75Author Commented:
cool.
thanks!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.