Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Displaying Single value from GetRows Array

Posted on 2008-06-12
6
Medium Priority
?
752 Views
Last Modified: 2008-06-12
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?
0
Comment
Question by:kevp75
  • 4
6 Comments
 
LVL 25

Author Comment

by:kevp75
ID: 21770071
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
 
LVL 82

Expert Comment

by:hielo
ID: 21770103
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
 
LVL 25

Author Comment

by:kevp75
ID: 21770364
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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 25

Author Comment

by:kevp75
ID: 21770444
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
 
LVL 13

Accepted Solution

by:
jmundsack earned 2000 total points
ID: 21770480
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
 
LVL 25

Author Comment

by:kevp75
ID: 21770554
cool.
thanks!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:   The Exchange of informatio…
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Screencast - Getting to Know the Pipeline

916 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question