asp_web_howto thread: Recordset in an Array
Message #1 by "Steve Read" <steve@r...> on Mon, 19 Mar 2001 09:03:13 -0000
|
|
Hello,
I have two questions on the above topic.
Firstly, I have an array containing one record. I get an error if any of
the fields contain NULL. I have got around this by doing the following
code before putting the data into a table:
if isnull(ds(0,0)) THEN
ds(0,0) =3D0
end if
This works fine. But I had to do many times for all the twenty or so
fields in the array. Is there a smarter way of doing this?
Secondly, I would like to make a value RED if the number is negative.
This is my code so far. How do I test for this?
response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
Thank you
steve
Message #2 by "O'Hara, Elliott M" <EMOHARA@k...> on Mon, 19 Mar 2001 07:13:25 -0500
|
|
for i = 0 to the first dim in your array or so
for j = 0 to the sec dim in your aray
if isnull(ds(i,j)) then
blah blah blah
end if
next
next
for i = 0 to the first dim in your array
for j = 0 to the sec dim in your aray
if ds(i,j)<0 then
response.write <font color="red">
response.write "<font color=""red""><TD><B>" &
formatcurrency(ds(13,0),2) & "<TD><B></font>"
else
response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
end if
next
next
i think that should do whacha want..
elliott
-----Original Message-----
From: Steve Read [mailto:steve@r...]
Sent: Monday, March 19, 2001 4:03 AM
To: ASP Web HowTo
Subject: [asp_web_howto] Recordset in an Array
Hello,
I have two questions on the above topic.
Firstly, I have an array containing one record. I get an error if any of the
fields contain NULL. I have got around this by doing the following code
before putting the data into a table:
if isnull(ds(0,0)) THEN
ds(0,0) =0
end if
This works fine. But I had to do many times for all the twenty or so fields
in the array. Is there a smarter way of doing this?
Secondly, I would like to make a value RED if the number is negative. This
is my code so far. How do I test for this?
response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
Thank you
steve
Message #3 by "Steve Read" <steve@r...> on Tue, 20 Mar 2001 07:34:47 -0000
|
|
Morning Elliott,
(well it is here anyway!). Though yourcode works it
has to test the multi-dimensional array coordinates each time. I have approx
50 fields to place this code through and not all fields are placed within
the table. Can I get around this, or is it just a matter of spending time
copying the code for each field?
Thank you again
steve
Here is the code testing ds(39,0).
if ds(39,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></tr>"
end if
Here is an example of other fields I need to affect.
response.write "<tr><td><b>Maestro </td></b>"
response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(470),2,,-1) & "</td></b>"
----- Original Message -----
From: Steve Read <steve@r...>
To: ASP Web HowTo <asp_web_howto@p...>
Sent: Monday, March 19, 2001 8:47 PM
Subject: Re: [asp_web_howto] RE: Recordset in an Array
> Thank you Elliott
> ----- Original Message -----
> From: O'Hara, Elliott M <EMOHARA@k...>
> To: ASP Web HowTo <asp_web_howto@p...>
> Sent: Monday, March 19, 2001 12:13 PM
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> > for i = 0 to the first dim in your array or so
> > for j = 0 to the sec dim in your aray
> > if isnull(ds(i,j)) then
> > blah blah blah
> > end if
> >
> > next
> > next
> >
> > for i = 0 to the first dim in your array
> > for j = 0 to the sec dim in your aray
> > if ds(i,j)<0 then
> > response.write <font color="red">
> > response.write "<font color=""red""><TD><B>" &
> > formatcurrency(ds(13,0),2) & "<TD><B></font>"
> > else
> > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> > end if
> > next
> > next
> >
> > i think that should do whacha want..
> > elliott
> >
> > -----Original Message-----
> > From: Steve Read [mailto:steve@r...]
> > Sent: Monday, March 19, 2001 4:03 AM
> > To: ASP Web HowTo
> > Subject: [asp_web_howto] Recordset in an Array
> >
> >
> > Hello,
> >
> > I have two questions on the above topic.
> >
> > Firstly, I have an array containing one record. I get an error if any of
> the
> > fields contain NULL. I have got around this by doing the following code
> > before putting the data into a table:
> >
> > if isnull(ds(0,0)) THEN
> > ds(0,0) =0
> > end if
> >
> > This works fine. But I had to do many times for all the twenty or so
> fields
> > in the array. Is there a smarter way of doing this?
> >
> > Secondly, I would like to make a value RED if the number is negative.
This
> > is my code so far. How do I test for this?
> >
> > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> >
> > Thank you
> >
> > steve
Message #4 by "O'Hara, Elliott M" <EMOHARA@k...> on Tue, 20 Mar 2001 07:14:06 -0500
|
|
Morning Steve (it is here too!)
Not very clear on what your trying to do..
hmmm... you've got ds(40,0) through ds(45,0) then a ds(470,0) (typo?? I hope
so.. )
You could change the for loop just to include what you want...
for i= 39 to 46
is there a pattern to the type of data in the array, i see currency then
number then percent...
also, while what you have there works,
I'd try to nest my tags properly if i were you
<td><b></b></td> as opposed to <td><b></td></b>
that stuff will kill you on xml...
trust me, lession learned the hard way for me...
-----Original Message-----
From: Steve Read [mailto:steve@r...]
Sent: Tuesday, March 20, 2001 2:35 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: Recordset in an Array
Morning Elliott,
(well it is here anyway!). Though yourcode works it
has to test the multi-dimensional array coordinates each time. I have approx
50 fields to place this code through and not all fields are placed within
the table. Can I get around this, or is it just a matter of spending time
copying the code for each field?
Thank you again
steve
Here is the code testing ds(39,0).
if ds(39,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></tr>"
end if
Here is an example of other fields I need to affect.
response.write "<tr><td><b>Maestro </td></b>"
response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(470),2,,-1) & "</td></b>"
----- Original Message -----
From: Steve Read <steve@r...>
To: ASP Web HowTo <asp_web_howto@p...>
Sent: Monday, March 19, 2001 8:47 PM
Subject: Re: [asp_web_howto] RE: Recordset in an Array
> Thank you Elliott
> ----- Original Message -----
> From: O'Hara, Elliott M <EMOHARA@k...>
> To: ASP Web HowTo <asp_web_howto@p...>
> Sent: Monday, March 19, 2001 12:13 PM
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> > for i = 0 to the first dim in your array or so
> > for j = 0 to the sec dim in your aray
> > if isnull(ds(i,j)) then
> > blah blah blah
> > end if
> >
> > next
> > next
> >
> > for i = 0 to the first dim in your array
> > for j = 0 to the sec dim in your aray
> > if ds(i,j)<0 then
> > response.write <font color="red">
> > response.write "<font color=""red""><TD><B>" &
> > formatcurrency(ds(13,0),2) & "<TD><B></font>"
> > else
> > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> > end if
> > next
> > next
> >
> > i think that should do whacha want..
> > elliott
> >
> > -----Original Message-----
> > From: Steve Read [mailto:steve@r...]
> > Sent: Monday, March 19, 2001 4:03 AM
> > To: ASP Web HowTo
> > Subject: [asp_web_howto] Recordset in an Array
> >
> >
> > Hello,
> >
> > I have two questions on the above topic.
> >
> > Firstly, I have an array containing one record. I get an error if any of
> the
> > fields contain NULL. I have got around this by doing the following code
> > before putting the data into a table:
> >
> > if isnull(ds(0,0)) THEN
> > ds(0,0) =0
> > end if
> >
> > This works fine. But I had to do many times for all the twenty or so
> fields
> > in the array. Is there a smarter way of doing this?
> >
> > Secondly, I would like to make a value RED if the number is negative.
This
> > is my code so far. How do I test for this?
> >
> > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> >
> > Thank you
> >
> > steve
Message #5 by "Steve Read" <steve@r...> on Tue, 20 Mar 2001 15:02:33 -0000
|
|
Hello Elliott,
I thought you might be across the pond as it seems the forum e-mails appear
late in the day. I suppose you are in the UK like me. And even in Brighton
like me!
yes you are right, ds(470) is a typo ... . Thanks. Also I will heed your
advice on nesting tags.
Just to explain a little more on what I'm trying to do. Here is the code.
<HTML>
<HEAD>
<style type="text/css">
<!--
A:visited {color: #000000;}
A:link {color: #FF0000;}
A:hover {color: #FF0000;}
A:active {color: #000000;}
-->
</style>
</HEAD>
<TITLE>MAVERICK PROFILE</TITLE>
<body BGCOLOR="#FFFF80">
<B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
Menu</FONT></A></B><br>
<A HREF ="\maverick\maverick.asp" >Return to Maverick selection
</A><br><br>
<%
if isnull(ds(0,0)) then
response.write "<B>NO RECORD FOUND. Have you entered the correct number and
is customer active?</b>"
else
response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
response.write " cellspacing=""1"" cellpadding =""1""
bordercolor=""silver""> "
response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
response.write "<TD><STRONG>Txs</STRONG></TD>"
response.write "<TD><STRONG>Turnover</STRONG></TD>"
response.write "<TD><STRONG>ATV</STRONG></TD>"
response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
response.write "<TD><STRONG>MSC</STRONG></TD>"
response.write "<TD><STRONG>Interchange</STRONG></TD>"
response.write "<TD><STRONG>Margin</STRONG></TD>"
response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
For i= 0 to ubound(ds)
for j= 0 to lbound(ds)
if isnull(ds(i,j)) then
ds(i,j) =0
end if
next
next
response.write "<tr><td><b>MasterCard Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(6,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(7,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(8,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(9,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent(ds(10,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(11,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(12,0),2,,-1) & "</td></b>"
-----this is the code you helped me with here to test if <0 so value appears
red. But I don't want to test each ds(x,x)
-----each time if I can avoid it!IE. testing ds(14,0) and ds(15,0) and
ds(16,0) etc.. Any ideas?
if ds(13,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Visa Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(14,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(15,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(16,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(17,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(18,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(19,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(20,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(21,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>Visa Commercial </td></b>"
response.write "<td><b>" & formatnumber(ds(24,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(25,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(26,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(27,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(28,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(29,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(30,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(31,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>JCB </td></b>"
response.write "<td><b>" & formatnumber(ds(32,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(33,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(34,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(35,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(36,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(37,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(38,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>Maestro </td></b>"
response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(46,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(47,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>VDC </td></b>"
response.write "<td><b>" & formatnumber(ds(48,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(49,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(50,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(51,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(52,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(53,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(54,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(55,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>Switch </td></b>"
response.write "<td><b>" & formatnumber(ds(56,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(57,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(58,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(59,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(60,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(61,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(62,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(63,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>Electron </td></b>"
response.write "<td><b>" & formatnumber(ds(64,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(65,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(66,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(67,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(68,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(69,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(70,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(71,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>Solo </td></b>"
response.write "<td><b>" & formatnumber(ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(74,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(76,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(78,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(79,0),2,,-1) &
"</td></b></tr>"
response.write "<tr><td><b>TOTALS </td></b>"
response.write "<td><b>" &
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
s(64,0)+ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
+ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
+ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
)+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
)+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
response.write "</table>"
erase ds
end if
%>
</body>
</html>
----- Original Message -----
From: O'Hara, Elliott M <EMOHARA@k...>
To: ASP Web HowTo <asp_web_howto@p...>
Sent: Tuesday, March 20, 2001 12:14 PM
Subject: [asp_web_howto] RE: Recordset in an Array
> Morning Steve (it is here too!)
>
> Not very clear on what your trying to do..
> hmmm... you've got ds(40,0) through ds(45,0) then a ds(470,0) (typo?? I
hope
> so.. )
> You could change the for loop just to include what you want...
> for i= 39 to 46
>
> is there a pattern to the type of data in the array, i see currency then
> number then percent...
>
> also, while what you have there works,
> I'd try to nest my tags properly if i were you
> <td><b></b></td> as opposed to <td><b></td></b>
> that stuff will kill you on xml...
> trust me, lession learned the hard way for me...
>
>
> -----Original Message-----
> From: Steve Read [mailto:steve@r...]
> Sent: Tuesday, March 20, 2001 2:35 AM
> To: ASP Web HowTo
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> Morning Elliott,
> (well it is here anyway!). Though yourcode works
it
> has to test the multi-dimensional array coordinates each time. I have
approx
> 50 fields to place this code through and not all fields are placed within
> the table. Can I get around this, or is it just a matter of spending time
> copying the code for each field?
>
> Thank you again
> steve
>
> Here is the code testing ds(39,0).
>
> if ds(39,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> Here is an example of other fields I need to affect.
>
> response.write "<tr><td><b>Maestro </td></b>"
> response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(470),2,,-1) & "</td></b>"
>
>
> ----- Original Message -----
> From: Steve Read <steve@r...>
> To: ASP Web HowTo <asp_web_howto@p...>
> Sent: Monday, March 19, 2001 8:47 PM
> Subject: Re: [asp_web_howto] RE: Recordset in an Array
>
>
> > Thank you Elliott
> > ----- Original Message -----
> > From: O'Hara, Elliott M <EMOHARA@k...>
> > To: ASP Web HowTo <asp_web_howto@p...>
> > Sent: Monday, March 19, 2001 12:13 PM
> > Subject: [asp_web_howto] RE: Recordset in an Array
> >
> >
> > > for i = 0 to the first dim in your array or so
> > > for j = 0 to the sec dim in your aray
> > > if isnull(ds(i,j)) then
> > > blah blah blah
> > > end if
> > >
> > > next
> > > next
> > >
> > > for i = 0 to the first dim in your array
> > > for j = 0 to the sec dim in your aray
> > > if ds(i,j)<0 then
> > > response.write <font color="red">
> > > response.write "<font color=""red""><TD><B>" &
> > > formatcurrency(ds(13,0),2) & "<TD><B></font>"
> > > else
> > > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> > > end if
> > > next
> > > next
> > >
> > > i think that should do whacha want..
> > > elliott
> > >
> > > -----Original Message-----
> > > From: Steve Read [mailto:steve@r...]
> > > Sent: Monday, March 19, 2001 4:03 AM
> > > To: ASP Web HowTo
> > > Subject: [asp_web_howto] Recordset in an Array
> > >
> > >
> > > Hello,
> > >
> > > I have two questions on the above topic.
> > >
> > > Firstly, I have an array containing one record. I get an error if any
of
> > the
> > > fields contain NULL. I have got around this by doing the following
code
> > > before putting the data into a table:
> > >
> > > if isnull(ds(0,0)) THEN
> > > ds(0,0) =0
> > > end if
> > >
> > > This works fine. But I had to do many times for all the twenty or so
> > fields
> > > in the array. Is there a smarter way of doing this?
> > >
> > > Secondly, I would like to make a value RED if the number is negative.
> This
> > > is my code so far. How do I test for this?
> > >
> > > response.write "<TD><B>" & formatcurrency(ds(13,0),2) & "<TD><B>"
> > >
> > > Thank you
> > >
> > > steve
Message #6 by "O'Hara, Elliott M" <EMOHARA@k...> on Tue, 20 Mar 2001 13:01:34 -0500
|
|
actually I am....
FL USA
OK, lets see here
Pasting you code... and a few suggestions
You've probably done to much to justify redoing the whole code, but I'd
consider making a few different arrays, depending on the type info
then you could loop through them more freely...
anyways, here it goes, i hope its what you want
<HTML>
<HEAD>
<style type="text/css">
<!--
A:visited {color: #000000;}
A:link {color: #FF0000;}
A:hover {color: #FF0000;}
A:active {color: #000000;}
-->
</style>
</HEAD>
<TITLE>MAVERICK PROFILE</TITLE>
<body BGCOLOR="#FFFF80">
<B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
Menu</FONT></A></B><br>
<A HREF ="\maverick\maverick.asp" >Return to Maverick selection
</A><br><br>
<%
if isnull(ds(0,0)) then
response.write "<B>NO RECORD FOUND. Have you entered the correct number and
is customer active?</b>"
else
response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
response.write " cellspacing=""1"" cellpadding =""1""
bordercolor=""silver""> "
response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
response.write "<TD><STRONG>Txs</STRONG></TD>"
response.write "<TD><STRONG>Turnover</STRONG></TD>"
response.write "<TD><STRONG>ATV</STRONG></TD>"
response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
response.write "<TD><STRONG>MSC</STRONG></TD>"
response.write "<TD><STRONG>Interchange</STRONG></TD>"
response.write "<TD><STRONG>Margin</STRONG></TD>"
response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
For i= 0 to ubound(ds)
for j= 0 to lbound(ds)
if isnull(ds(i,j)) then
ds(i,j) =0
end if
next
next
Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
dim i,j
For i = Lower to Upper
if i=TheNumber then
response.write "<td><b>" & formatnumber(ds(i,0),0,,-1) &
"</td></b>"
else if i =ThePercent then
response.write "<td><b>" &
formatpercent(ds(i,0),3,,-1) & "</td></b>"
end if
else
response.write "<td><b>" & formatcurrency( ds(i,0),0,,-1) &
"</td></b>"
end if
Next
End Sub
response.write "<tr><td><b>MasterCard Cr </td></b>"
LetsSaveSumTypin(6,12,6,10)
for i = 13 to 16 '??? this is what you want????
if ds(i,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(i,0),2,,-1) & "</td></b></tr>"
end if
next
response.write "<tr><td><b>Visa Cr </td></b>"
Sub LetsSaveSumTypin(14,21,14,18)
response.write "<tr><td><b>Visa Commercial </td></b>"
Sub LetsSaveSumTypin(24,31,24,28)
response.write "<tr><td><b>JCB </td></b>"
Sub LetsSaveSumTypin(32,39,32,36)
response.write "<tr><td><b>Maestro </td></b>"
Sub LetsSaveSumTypin(40,47,40,44)
response.write "<tr><td><b>VDC </td></b>"
Sub LetsSaveSumTypin(48,55,48,0)
response.write "<tr><td><b>Switch </td></b>"
Sub LetsSaveSumTypin(56,63,56,0)
response.write "<tr><td><b>Electron </td></b>"
Sub LetsSaveSumTypin(64,71,64,0)
response.write "<tr><td><b>Solo </td></b>"
Sub LetsSaveSumTypin(73,79,72,0)
response.write "<tr><td><b>TOTALS </td></b>"
response.write "<td><b>" &
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
s(64,0)+ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
+ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
+ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
)+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
)+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
response.write "</table>"
erase ds
end if
%>
</body>
</html>
Message #7 by "O'Hara, Elliott M" <EMOHARA@k...> on Tue, 20 Mar 2001 13:08:40 -0500
|
|
sorry about that...
lemme fix that sub
Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
dim i,j
For i = Lower to Upper
if i=TheNumber then
response.write "<td><b>" &
formatnumber(ds(i,0),0,,-1) & "</td></b>"
elseif i =ThePercent then
response.write "<td><b>" &
formatpercent(ds(i,0),3,,-1) & "</td></b>"
else
response.write "<td><b>" & formatcurrency(
ds(i,0),0,,-1) & "</td></b>"
end if
Next
End Sub
-----Original Message-----
From: O'Hara, Elliott M [mailto:EMOHARA@k...]
Sent: Tuesday, March 20, 2001 1:02 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: Recordset in an Array
actually I am....
FL USA
OK, lets see here
Pasting you code... and a few suggestions
You've probably done to much to justify redoing the whole code, but I'd
consider making a few different arrays, depending on the type info
then you could loop through them more freely...
anyways, here it goes, i hope its what you want
<HTML>
<HEAD>
<style type="text/css">
<!--
A:visited {color: #000000;}
A:link {color: #FF0000;}
A:hover {color: #FF0000;}
A:active {color: #000000;}
-->
</style>
</HEAD>
<TITLE>MAVERICK PROFILE</TITLE>
<body BGCOLOR="#FFFF80">
<B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
Menu</FONT></A></B><br>
<A HREF ="\maverick\maverick.asp" >Return to Maverick selection
</A><br><br>
<%
if isnull(ds(0,0)) then
response.write "<B>NO RECORD FOUND. Have you entered the correct number and
is customer active?</b>"
else
response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
response.write " cellspacing=""1"" cellpadding =""1""
bordercolor=""silver""> "
response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
response.write "<TD><STRONG>Txs</STRONG></TD>"
response.write "<TD><STRONG>Turnover</STRONG></TD>"
response.write "<TD><STRONG>ATV</STRONG></TD>"
response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
response.write "<TD><STRONG>MSC</STRONG></TD>"
response.write "<TD><STRONG>Interchange</STRONG></TD>"
response.write "<TD><STRONG>Margin</STRONG></TD>"
response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
For i= 0 to ubound(ds)
for j= 0 to lbound(ds)
if isnull(ds(i,j)) then
ds(i,j) =0
end if
next
next
Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
dim i,j
For i = Lower to Upper
if i=TheNumber then
response.write "<td><b>" & formatnumber(ds(i,0),0,,-1) &
"</td></b>"
else if i =ThePercent then
response.write "<td><b>" &
formatpercent(ds(i,0),3,,-1) & "</td></b>"
end if
else
response.write "<td><b>" & formatcurrency( ds(i,0),0,,-1) &
"</td></b>"
end if
Next
End Sub
response.write "<tr><td><b>MasterCard Cr </td></b>"
LetsSaveSumTypin(6,12,6,10)
for i = 13 to 16 '??? this is what you want????
if ds(i,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(i,0),2,,-1) & "</td></b></tr>"
end if
next
response.write "<tr><td><b>Visa Cr </td></b>"
Sub LetsSaveSumTypin(14,21,14,18)
response.write "<tr><td><b>Visa Commercial </td></b>"
Sub LetsSaveSumTypin(24,31,24,28)
response.write "<tr><td><b>JCB </td></b>"
Sub LetsSaveSumTypin(32,39,32,36)
response.write "<tr><td><b>Maestro </td></b>"
Sub LetsSaveSumTypin(40,47,40,44)
response.write "<tr><td><b>VDC </td></b>"
Sub LetsSaveSumTypin(48,55,48,0)
response.write "<tr><td><b>Switch </td></b>"
Sub LetsSaveSumTypin(56,63,56,0)
response.write "<tr><td><b>Electron </td></b>"
Sub LetsSaveSumTypin(64,71,64,0)
response.write "<tr><td><b>Solo </td></b>"
Sub LetsSaveSumTypin(73,79,72,0)
response.write "<tr><td><b>TOTALS </td></b>"
response.write "<td><b>" &
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
s(64,0)+ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
+ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
+ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
)+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
)+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
response.write "</table>"
erase ds
end if
%>
</body>
</html>
---
SoftArtisans helps developers build robust, scalable Web applications!
Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
File uploads: http://www.softartisans.com/saf.html
Transactional file management: http://www.softartisans.com/saf1.html
Scalability: http://www.softartisans.com/saxsession.html
ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
emohara@k...
$subst('Email.Unsub')
Message #8 by "Steve Read" <steve@r...> on Wed, 21 Mar 2001 13:32:19 -0000
|
|
Thanks Elliott, I can see the principle here. I can see why you work for
NASA! I'll give it a crack.
One last thing. I was testing for where the user enters a number into the ID
text box to ensure the number is valid in the database. Where no number
exists in the database I get the following error:
ADODB.Recordset error '800aobcd'
Either BOF or EOF is True, or the current record has been deleted; the
operation request by the application requires a current record.
I know I need to test for EOF, but I'm not sure at what point. I removed all
the code after
oconn.close
set oconn=nothing
%>
and I still get the error. I was thinking it was failing when I was testing
for null on ds(0,0). But the problem is before that. Any idea?
Here's the connection:
<%@ Language=VBScript%>
<!--#INCLUDE VIRTUAL="/ADOVBS.INC" -->
<%
Response.Buffer =true
%>
<%
strConnect = "PROVIDER=SQLOLEDB;" & _
"SERVER=(local);" & _
"DATABASE=TEST;" & _
"UID=sa;PWD="
ID = Request.Form("ID")
set oconn = server.createobject("ADODB.connection")
oconn.open strconnect
Set objrecordset = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM MAVERICK WHERE COM_ID = " & ID & ";"
objrecordset.open SQL, oconn
ds=objrecordset.getrows
objrecordset.close
set objrecordset = nothing
oconn.close
set oconn=nothing
%>
<HTML>
<HEAD>
<style type="text/css">
<!--
A:visited {color: #000000;}
A:link {color: #FF0000;}
A:hover {color: #FF0000;}
A:active {color: #000000;}
-->
</style>
</HEAD>
<TITLE>MAVERICK PROFILE</TITLE>
<body BGCOLOR="#FFFF80">
<B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
Menu</FONT></A></B><br>
<A HREF ="\maverick\maverick.asp" >Another Company Maverick? </A>
<%
if isnull(ds(0,0)) then
response.write "<B>NO RECORD FOUND. Have you entered the correct number and
is customer active?</b>"
elseif (ds(2,0)) = 0 then
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
ds(1,0) & ")</B></DIV><br>"
else
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
ds(1,0) & ")</B></DIV><br>"
response.write "<DIV ALIGN = CENTER ><B>Linked to " & ds(4,0)& " (Group No."
& ds(2,0) & ")</B></DIV><br>"
end if
if not isnull(ds(0,0)) then
response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
response.write " cellspacing=""1"" cellpadding =""1""
bordercolor=""silver""> "
response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
response.write "<TD><STRONG>Txs</STRONG></TD>"
response.write "<TD><STRONG>Turnover</STRONG></TD>"
response.write "<TD><STRONG>ATV</STRONG></TD>"
response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
response.write "<TD><STRONG>MSC</STRONG></TD>"
response.write "<TD><STRONG>Interchange</STRONG></TD>"
response.write "<TD><STRONG>Margin</STRONG></TD>"
response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
For i= 0 to ubound(ds)
for j= 0 to lbound(ds)
if isnull(ds(i,j)) then
ds(i,j) =0
end if
next
next
response.write "<tr><td><b>MasterCard Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(6,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(7,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(8,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(9,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent(ds(10,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(11,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(12,0),2,,-1) & "</td></b>"
if ds(13,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Visa Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(14,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(15,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(16,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(17,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(18,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(19,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(20,0),2,,-1) & "</td></b>"
if ds(21,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(21,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(21,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Visa Commercial </td></b>"
response.write "<td><b>" & formatnumber(ds(24,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(25,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(26,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(27,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(28,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(29,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(30,0),2,,-1) & "</td></b>"
if ds(31,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(31,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(31,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>JCB </td></b>"
response.write "<td><b>" & formatnumber(ds(32,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(33,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(34,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(35,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(36,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(37,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(38,0),2,,-1) & "</td></b>"
if ds(39,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Maestro </td></b>"
response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(46,0),2,,-1) & "</td></b>"
if ds(47,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(47,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(47,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>VDC </td></b>"
response.write "<td><b>" & formatnumber(ds(48,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(49,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(50,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(51,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(52,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(53,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(54,0),2,,-1) & "</td></b>"
if ds(55,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(55,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(55,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Switch </td></b>"
response.write "<td><b>" & formatnumber(ds(56,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(57,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(58,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(59,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(60,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(61,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(62,0),2,,-1) & "</td></b>"
if ds(63,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(63,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(63,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Electron </td></b>"
response.write "<td><b>" & formatnumber(ds(64,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(65,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(66,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(67,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(68,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(69,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(70,0),2,,-1) & "</td></b>"
if ds(71,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(71,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(71,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Solo </td></b>"
response.write "<td><b>" & formatnumber(ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(74,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(76,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(78,0),2,,-1) & "</td></b>"
if ds(79,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(79,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(79,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>TOTALS </td></b>"
response.write "<td><b>" &
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
s(64,0)+ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
+ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
+ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
)+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
)+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
response.write "</table>"
erase ds
end if
%>
</body>
</html>
----- Original Message -----
From: O'Hara, Elliott M <EMOHARA@k...>
To: ASP Web HowTo <asp_web_howto@p...>
Sent: Tuesday, March 20, 2001 6:08 PM
Subject: [asp_web_howto] RE: Recordset in an Array
> sorry about that...
> lemme fix that sub
> Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> dim i,j
> For i = Lower to Upper
> if i=TheNumber then
> response.write "<td><b>" &
> formatnumber(ds(i,0),0,,-1) & "</td></b>"
> elseif i =ThePercent then
> response.write "<td><b>" &
> formatpercent(ds(i,0),3,,-1) & "</td></b>"
>
> else
> response.write "<td><b>" & formatcurrency(
> ds(i,0),0,,-1) & "</td></b>"
> end if
> Next
> End Sub
>
>
> -----Original Message-----
> From: O'Hara, Elliott M [mailto:EMOHARA@k...]
> Sent: Tuesday, March 20, 2001 1:02 PM
> To: ASP Web HowTo
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> actually I am....
> FL USA
> OK, lets see here
> Pasting you code... and a few suggestions
>
> You've probably done to much to justify redoing the whole code, but I'd
> consider making a few different arrays, depending on the type info
> then you could loop through them more freely...
> anyways, here it goes, i hope its what you want
>
> <HTML>
> <HEAD>
>
> <style type="text/css">
> <!--
> A:visited {color: #000000;}
> A:link {color: #FF0000;}
> A:hover {color: #FF0000;}
> A:active {color: #000000;}
> -->
> </style>
> </HEAD>
> <TITLE>MAVERICK PROFILE</TITLE>
> <body BGCOLOR="#FFFF80">
> <B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
> Menu</FONT></A></B><br>
>
> <A HREF ="\maverick\maverick.asp" >Return to Maverick selection
> </A><br><br>
>
> <%
> if isnull(ds(0,0)) then
> response.write "<B>NO RECORD FOUND. Have you entered the correct number
and
> is customer active?</b>"
>
> else
>
> response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
> response.write " cellspacing=""1"" cellpadding =""1""
> bordercolor=""silver""> "
>
> response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
> response.write "<TD><STRONG>Txs</STRONG></TD>"
> response.write "<TD><STRONG>Turnover</STRONG></TD>"
> response.write "<TD><STRONG>ATV</STRONG></TD>"
> response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
> response.write "<TD><STRONG>MSC</STRONG></TD>"
> response.write "<TD><STRONG>Interchange</STRONG></TD>"
> response.write "<TD><STRONG>Margin</STRONG></TD>"
> response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
>
> response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
>
> For i= 0 to ubound(ds)
> for j= 0 to lbound(ds)
> if isnull(ds(i,j)) then
> ds(i,j) =0
> end if
> next
> next
> Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> dim i,j
> For i = Lower to Upper
> if i=TheNumber then
> response.write "<td><b>" & formatnumber(ds(i,0),0,,-1) &
> "</td></b>"
> else if i =ThePercent then
> response.write "<td><b>" &
> formatpercent(ds(i,0),3,,-1) & "</td></b>"
> end if
> else
> response.write "<td><b>" & formatcurrency( ds(i,0),0,,-1) &
> "</td></b>"
> end if
> Next
> End Sub
>
> response.write "<tr><td><b>MasterCard Cr </td></b>"
> LetsSaveSumTypin(6,12,6,10)
>
>
> for i = 13 to 16 '??? this is what you want????
> if ds(i,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(i,0),2,,-1) &
"</td></b></tr>"
> end if
> next
>
> response.write "<tr><td><b>Visa Cr </td></b>"
> Sub LetsSaveSumTypin(14,21,14,18)
>
>
> response.write "<tr><td><b>Visa Commercial </td></b>"
> Sub LetsSaveSumTypin(24,31,24,28)
>
>
> response.write "<tr><td><b>JCB </td></b>"
> Sub LetsSaveSumTypin(32,39,32,36)
>
>
> response.write "<tr><td><b>Maestro </td></b>"
> Sub LetsSaveSumTypin(40,47,40,44)
>
>
> response.write "<tr><td><b>VDC </td></b>"
> Sub LetsSaveSumTypin(48,55,48,0)
>
>
> response.write "<tr><td><b>Switch </td></b>"
> Sub LetsSaveSumTypin(56,63,56,0)
>
>
> response.write "<tr><td><b>Electron </td></b>"
> Sub LetsSaveSumTypin(64,71,64,0)
>
>
> response.write "<tr><td><b>Solo </td></b>"
> Sub LetsSaveSumTypin(73,79,72,0)
>
>
> response.write "<tr><td><b>TOTALS </td></b>"
> response.write "<td><b>" &
>
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
> s(64,0)+ds(72,0),0,,-1) & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
> +ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
> +ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
> )+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
> )+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
>
> response.write "</table>"
>
> erase ds
> end if
> %>
> </body>
> </html>
>
>
> ---
> SoftArtisans helps developers build robust, scalable Web applications!
> Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> File uploads: http://www.softartisans.com/saf.html
> Transactional file management: http://www.softartisans.com/saf1.html
> Scalability: http://www.softartisans.com/saxsession.html
> ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
> emohara@k...
> $subst('Email.Unsub')
>
> ---
> SoftArtisans helps developers build robust, scalable Web applications!
> Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> File uploads: http://www.softartisans.com/saf.html
> Transactional file management: http://www.softartisans.com/saf1.html
> Scalability: http://www.softartisans.com/saxsession.html
> ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
steve@r...
$subst('Email.Unsub')
>
>
Message #9 by "TomMallard" <mallard@s...> on Wed, 21 Mar 2001 06:03:32 -0800
|
|
You need to test for BOF before trying a getrows()...
objrecordset.open SQL, oconn
if not objrecordset.BOF then
ds=objrecordset.getrows
else
'no records returned
end if
tom mallard
seattle
----- Original Message -----
From: "Steve Read" <steve@r...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Wednesday, March 21, 2001 5:32 AM
Subject: [asp_web_howto] RE: Recordset in an Array
> Thanks Elliott, I can see the principle here. I can see why you work for
> NASA! I'll give it a crack.
>
> One last thing. I was testing for where the user enters a number into the
ID
> text box to ensure the number is valid in the database. Where no number
> exists in the database I get the following error:
>
> ADODB.Recordset error '800aobcd'
> Either BOF or EOF is True, or the current record has been deleted; the
> operation request by the application requires a current record.
>
> I know I need to test for EOF, but I'm not sure at what point. I removed
all
> the code after
>
> oconn.close
> set oconn=nothing
> %>
>
> and I still get the error. I was thinking it was failing when I was
testing
> for null on ds(0,0). But the problem is before that. Any idea?
>
>
> Here's the connection:
>
> <%@ Language=VBScript%>
> <!--#INCLUDE VIRTUAL="/ADOVBS.INC" -->
> <%
> Response.Buffer =true
> %>
>
> <%
> strConnect = "PROVIDER=SQLOLEDB;" & _
> "SERVER=(local);" & _
> "DATABASE=TEST;" & _
> "UID=sa;PWD="
>
> ID = Request.Form("ID")
>
> set oconn = server.createobject("ADODB.connection")
> oconn.open strconnect
>
> Set objrecordset = Server.CreateObject("ADODB.Recordset")
> SQL= "SELECT * FROM MAVERICK WHERE COM_ID = " & ID & ";"
>
> objrecordset.open SQL, oconn
>
> ds=objrecordset.getrows
>
> objrecordset.close
> set objrecordset = nothing
>
> oconn.close
> set oconn=nothing
> %>
>
> <HTML>
> <HEAD>
>
> <style type="text/css">
> <!--
> A:visited {color: #000000;}
> A:link {color: #FF0000;}
> A:hover {color: #FF0000;}
> A:active {color: #000000;}
> -->
> </style>
> </HEAD>
> <TITLE>MAVERICK PROFILE</TITLE>
> <body BGCOLOR="#FFFF80">
> <B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
> Menu</FONT></A></B><br>
>
> <A HREF ="\maverick\maverick.asp" >Another Company Maverick? </A>
>
> <%
> if isnull(ds(0,0)) then
> response.write "<B>NO RECORD FOUND. Have you entered the correct number
and
> is customer active?</b>"
>
> elseif (ds(2,0)) = 0 then
>
> response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
> ds(1,0) & ")</B></DIV><br>"
> else
> response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
> ds(1,0) & ")</B></DIV><br>"
> response.write "<DIV ALIGN = CENTER ><B>Linked to " & ds(4,0)& " (Group
No."
> & ds(2,0) & ")</B></DIV><br>"
> end if
>
> if not isnull(ds(0,0)) then
>
>
> response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
> response.write " cellspacing=""1"" cellpadding =""1""
> bordercolor=""silver""> "
>
> response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
> response.write "<TD><STRONG>Txs</STRONG></TD>"
> response.write "<TD><STRONG>Turnover</STRONG></TD>"
> response.write "<TD><STRONG>ATV</STRONG></TD>"
> response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
> response.write "<TD><STRONG>MSC</STRONG></TD>"
> response.write "<TD><STRONG>Interchange</STRONG></TD>"
> response.write "<TD><STRONG>Margin</STRONG></TD>"
> response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
>
>
> For i= 0 to ubound(ds)
> for j= 0 to lbound(ds)
> if isnull(ds(i,j)) then
> ds(i,j) =0
> end if
> next
> next
>
>
> response.write "<tr><td><b>MasterCard Cr </td></b>"
> response.write "<td><b>" & formatnumber(ds(6,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(7,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(8,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(9,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent(ds(10,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(11,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(12,0),2,,-1) & "</td></b>"
>
> if ds(13,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(13,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Visa Cr </td></b>"
> response.write "<td><b>" & formatnumber(ds(14,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(15,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(16,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(17,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent( ds(18,0),3) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(19,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(20,0),2,,-1) & "</td></b>"
>
> if ds(21,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(21,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(21,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Visa Commercial </td></b>"
> response.write "<td><b>" & formatnumber(ds(24,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(25,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(26,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(27,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent( ds(28,0),3) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(29,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(30,0),2,,-1) & "</td></b>"
>
> if ds(31,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(31,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(31,0),2,,-1) &
> "</td></b></tr>"
> end if
>
>
> response.write "<tr><td><b>JCB </td></b>"
> response.write "<td><b>" & formatnumber(ds(32,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(33,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(34,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(35,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent( ds(36,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(37,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(38,0),2,,-1) & "</td></b>"
>
> if ds(39,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Maestro </td></b>"
> response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(46,0),2,,-1) & "</td></b>"
>
> if ds(47,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(47,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(47,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>VDC </td></b>"
> response.write "<td><b>" & formatnumber(ds(48,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(49,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(50,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(51,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(52,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(53,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(54,0),2,,-1) & "</td></b>"
>
> if ds(55,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(55,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(55,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Switch </td></b>"
> response.write "<td><b>" & formatnumber(ds(56,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(57,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(58,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(59,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(60,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(61,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(62,0),2,,-1) & "</td></b>"
>
> if ds(63,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(63,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(63,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Electron </td></b>"
> response.write "<td><b>" & formatnumber(ds(64,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(65,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(66,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(67,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(68,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(69,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(70,0),2,,-1) & "</td></b>"
>
> if ds(71,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(71,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(71,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>Solo </td></b>"
> response.write "<td><b>" & formatnumber(ds(72,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(73,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(74,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(75,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(76,0),3,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(77,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & formatcurrency( ds(78,0),2,,-1) & "</td></b>"
>
> if ds(79,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(79,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(79,0),2,,-1) &
> "</td></b></tr>"
> end if
>
> response.write "<tr><td><b>TOTALS </td></b>"
> response.write "<td><b>" &
>
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
> s(64,0)+ds(72,0),0,,-1) & "</td></b>"
> response.write "<td><b>" &
> ormatcurrency(
ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
> +ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
> ormatcurrency(
ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
> +ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
> ormatcurrency(
ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
> )+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
> )+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
>
> response.write "</table>"
>
> erase ds
> end if
> %>
> </body>
> </html>
>
> ----- Original Message -----
> From: O'Hara, Elliott M <EMOHARA@k...>
> To: ASP Web HowTo <asp_web_howto@p...>
> Sent: Tuesday, March 20, 2001 6:08 PM
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> > sorry about that...
> > lemme fix that sub
> > Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> > dim i,j
> > For i = Lower to Upper
> > if i=TheNumber then
> > response.write "<td><b>" &
> > formatnumber(ds(i,0),0,,-1) & "</td></b>"
> > elseif i =ThePercent then
> > response.write "<td><b>" &
> > formatpercent(ds(i,0),3,,-1) & "</td></b>"
> >
> > else
> > response.write "<td><b>" & formatcurrency(
> > ds(i,0),0,,-1) & "</td></b>"
> > end if
> > Next
> > End Sub
> >
> >
> > -----Original Message-----
> > From: O'Hara, Elliott M [mailto:EMOHARA@k...]
> > Sent: Tuesday, March 20, 2001 1:02 PM
> > To: ASP Web HowTo
> > Subject: [asp_web_howto] RE: Recordset in an Array
> >
> >
> > actually I am....
> > FL USA
> > OK, lets see here
> > Pasting you code... and a few suggestions
> >
> > You've probably done to much to justify redoing the whole code, but I'd
> > consider making a few different arrays, depending on the type info
> > then you could loop through them more freely...
> > anyways, here it goes, i hope its what you want
> >
> > <HTML>
> > <HEAD>
> >
> > <style type="text/css">
> > <!--
> > A:visited {color: #000000;}
> > A:link {color: #FF0000;}
> > A:hover {color: #FF0000;}
> > A:active {color: #000000;}
> > -->
> > </style>
> > </HEAD>
> > <TITLE>MAVERICK PROFILE</TITLE>
> > <body BGCOLOR="#FFFF80">
> > <B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
> > Menu</FONT></A></B><br>
> >
> > <A HREF ="\maverick\maverick.asp" >Return to Maverick selection
> > </A><br><br>
> >
> > <%
> > if isnull(ds(0,0)) then
> > response.write "<B>NO RECORD FOUND. Have you entered the correct number
> and
> > is customer active?</b>"
> >
> > else
> >
> > response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
> > response.write " cellspacing=""1"" cellpadding =""1""
> > bordercolor=""silver""> "
> >
> > response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
> > response.write "<TD><STRONG>Txs</STRONG></TD>"
> > response.write "<TD><STRONG>Turnover</STRONG></TD>"
> > response.write "<TD><STRONG>ATV</STRONG></TD>"
> > response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
> > response.write "<TD><STRONG>MSC</STRONG></TD>"
> > response.write "<TD><STRONG>Interchange</STRONG></TD>"
> > response.write "<TD><STRONG>Margin</STRONG></TD>"
> > response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
> >
> > response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
> >
> > For i= 0 to ubound(ds)
> > for j= 0 to lbound(ds)
> > if isnull(ds(i,j)) then
> > ds(i,j) =0
> > end if
> > next
> > next
> > Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> > dim i,j
> > For i = Lower to Upper
> > if i=TheNumber then
> > response.write "<td><b>" & formatnumber(ds(i,0),0,,-1) &
> > "</td></b>"
> > else if i =ThePercent then
> > response.write "<td><b>" &
> > formatpercent(ds(i,0),3,,-1) & "</td></b>"
> > end if
> > else
> > response.write "<td><b>" & formatcurrency( ds(i,0),0,,-1) &
> > "</td></b>"
> > end if
> > Next
> > End Sub
> >
> > response.write "<tr><td><b>MasterCard Cr </td></b>"
> > LetsSaveSumTypin(6,12,6,10)
> >
> >
> > for i = 13 to 16 '??? this is what you want????
> > if ds(i,0) <0 then
> > response.write "<td><b><font color=red>" & formatcurrency(
ds(13,0),2,,-1)
> &
> > "</td></b></font></tr>"
> > else
> > response.write "<td><b>" & formatcurrency( ds(i,0),2,,-1) &
> "</td></b></tr>"
> > end if
> > next
> >
> > response.write "<tr><td><b>Visa Cr </td></b>"
> > Sub LetsSaveSumTypin(14,21,14,18)
> >
> >
> > response.write "<tr><td><b>Visa Commercial </td></b>"
> > Sub LetsSaveSumTypin(24,31,24,28)
> >
> >
> > response.write "<tr><td><b>JCB </td></b>"
> > Sub LetsSaveSumTypin(32,39,32,36)
> >
> >
> > response.write "<tr><td><b>Maestro </td></b>"
> > Sub LetsSaveSumTypin(40,47,40,44)
> >
> >
> > response.write "<tr><td><b>VDC </td></b>"
> > Sub LetsSaveSumTypin(48,55,48,0)
> >
> >
> > response.write "<tr><td><b>Switch </td></b>"
> > Sub LetsSaveSumTypin(56,63,56,0)
> >
> >
> > response.write "<tr><td><b>Electron </td></b>"
> > Sub LetsSaveSumTypin(64,71,64,0)
> >
> >
> > response.write "<tr><td><b>Solo </td></b>"
> > Sub LetsSaveSumTypin(73,79,72,0)
> >
> >
> > response.write "<tr><td><b>TOTALS </td></b>"
> > response.write "<td><b>" &
> >
>
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
> > s(64,0)+ds(72,0),0,,-1) & "</td></b>"
> > response.write "<td><b>" &
> >
> rmatcurrency(
ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
> > +ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
> > response.write "<td><b>" & nbsp & "</td></b>"
> > response.write "<td><b>" &
> >
> rmatcurrency(
ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
> > +ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
> > response.write "<td><b>" & nbsp & "</td></b>"
> > response.write "<td><b>" &
> >
> rmatcurrency(
ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
> > )+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
> > response.write "<td><b>" & nbsp & "</td></b>"
> > response.write "<td><b>" &
> >
>
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
> > )+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
> >
> > response.write "</table>"
> >
> > erase ds
> > end if
> > %>
> > </body>
> > </html>
> >
> >
> > ---
> > SoftArtisans helps developers build robust, scalable Web applications!
> > Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> > File uploads: http://www.softartisans.com/saf.html
> > Transactional file management: http://www.softartisans.com/saf1.html
> > Scalability: http://www.softartisans.com/saxsession.html
> > ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
> > emohara@k...
> > $subst('Email.Unsub')
> >
> > ---
> > SoftArtisans helps developers build robust, scalable Web applications!
> > Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> > File uploads: http://www.softartisans.com/saf.html
> > Transactional file management: http://www.softartisans.com/saf1.html
> > Scalability: http://www.softartisans.com/saxsession.html
> > ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
> steve@r...
> $subst('Email.Unsub')
> >
> >
>
>
> ---
> SoftArtisans helps developers build robust, scalable Web applications!
> Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> File uploads: http://www.softartisans.com/saf.html
> Transactional file management: http://www.softartisans.com/saf1.html
> Scalability: http://www.softartisans.com/saxsession.html
> ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
$subst('Email.Unsub')
>
>
Message #10 by "O'Hara, Elliott M" <EMOHARA@k...> on Wed, 21 Mar 2001 09:03:26 -0500
|
|
No... its not on the testing for null on your ds array, that error is
strictly SQL
throw in a before your
getrows command....
if objrecordset.BOF and objrecordset.BOF then
blah blah no records......
else
ds=objrecordset.getrows
end if
-----Original Message-----
From: Steve Read [mailto:steve@r...]
Sent: Wednesday, March 21, 2001 8:32 AM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: Recordset in an Array
Thanks Elliott, I can see the principle here. I can see why you work for
NASA! I'll give it a crack.
One last thing. I was testing for where the user enters a number into the ID
text box to ensure the number is valid in the database. Where no number
exists in the database I get the following error:
ADODB.Recordset error '800aobcd'
Either BOF or EOF is True, or the current record has been deleted; the
operation request by the application requires a current record.
I know I need to test for EOF, but I'm not sure at what point. I removed all
the code after
oconn.close
set oconn=nothing
%>
and I still get the error. I was thinking it was failing when I was testing
for null on ds(0,0). But the problem is before that. Any idea?
Here's the connection:
<%@ Language=VBScript%>
<!--#INCLUDE VIRTUAL="/ADOVBS.INC" -->
<%
Response.Buffer =true
%>
<%
strConnect = "PROVIDER=SQLOLEDB;" & _
"SERVER=(local);" & _
"DATABASE=TEST;" & _
"UID=sa;PWD="
ID = Request.Form("ID")
set oconn = server.createobject("ADODB.connection")
oconn.open strconnect
Set objrecordset = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM MAVERICK WHERE COM_ID = " & ID & ";"
objrecordset.open SQL, oconn
ds=objrecordset.getrows
objrecordset.close
set objrecordset = nothing
oconn.close
set oconn=nothing
%>
<HTML>
<HEAD>
<style type="text/css">
<!--
A:visited {color: #000000;}
A:link {color: #FF0000;}
A:hover {color: #FF0000;}
A:active {color: #000000;}
-->
</style>
</HEAD>
<TITLE>MAVERICK PROFILE</TITLE>
<body BGCOLOR="#FFFF80">
<B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
Menu</FONT></A></B><br>
<A HREF ="\maverick\maverick.asp" >Another Company Maverick? </A>
<%
if isnull(ds(0,0)) then
response.write "<B>NO RECORD FOUND. Have you entered the correct number and
is customer active?</b>"
elseif (ds(2,0)) = 0 then
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
ds(1,0) & ")</B></DIV><br>"
else
response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0)& " (Company No. " &
ds(1,0) & ")</B></DIV><br>"
response.write "<DIV ALIGN = CENTER ><B>Linked to " & ds(4,0)& " (Group No."
& ds(2,0) & ")</B></DIV><br>"
end if
if not isnull(ds(0,0)) then
response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
response.write " cellspacing=""1"" cellpadding =""1""
bordercolor=""silver""> "
response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
response.write "<TD><STRONG>Txs</STRONG></TD>"
response.write "<TD><STRONG>Turnover</STRONG></TD>"
response.write "<TD><STRONG>ATV</STRONG></TD>"
response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
response.write "<TD><STRONG>MSC</STRONG></TD>"
response.write "<TD><STRONG>Interchange</STRONG></TD>"
response.write "<TD><STRONG>Margin</STRONG></TD>"
response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
For i= 0 to ubound(ds)
for j= 0 to lbound(ds)
if isnull(ds(i,j)) then
ds(i,j) =0
end if
next
next
response.write "<tr><td><b>MasterCard Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(6,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(7,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(8,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(9,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent(ds(10,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(11,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(12,0),2,,-1) & "</td></b>"
if ds(13,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(13,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Visa Cr </td></b>"
response.write "<td><b>" & formatnumber(ds(14,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(15,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(16,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(17,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(18,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(19,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(20,0),2,,-1) & "</td></b>"
if ds(21,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(21,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(21,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Visa Commercial </td></b>"
response.write "<td><b>" & formatnumber(ds(24,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(25,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(26,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(27,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(28,0),3) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(29,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(30,0),2,,-1) & "</td></b>"
if ds(31,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(31,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(31,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>JCB </td></b>"
response.write "<td><b>" & formatnumber(ds(32,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(33,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(34,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(35,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(36,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(37,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(38,0),2,,-1) & "</td></b>"
if ds(39,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(39,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Maestro </td></b>"
response.write "<td><b>" & formatnumber(ds(40,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(41,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(42,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(43,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatpercent( ds(44,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(45,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(46,0),2,,-1) & "</td></b>"
if ds(47,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(47,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(47,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>VDC </td></b>"
response.write "<td><b>" & formatnumber(ds(48,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(49,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(50,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(51,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(52,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(53,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(54,0),2,,-1) & "</td></b>"
if ds(55,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(55,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(55,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Switch </td></b>"
response.write "<td><b>" & formatnumber(ds(56,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(57,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(58,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(59,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(60,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(61,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(62,0),2,,-1) & "</td></b>"
if ds(63,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(63,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(63,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Electron </td></b>"
response.write "<td><b>" & formatnumber(ds(64,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(65,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(66,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(67,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(68,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(69,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(70,0),2,,-1) & "</td></b>"
if ds(71,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(71,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(71,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>Solo </td></b>"
response.write "<td><b>" & formatnumber(ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(74,0),0,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(76,0),3,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & formatcurrency( ds(78,0),2,,-1) & "</td></b>"
if ds(79,0) <0 then
response.write "<td><b><font color=red>" & formatcurrency( ds(79,0),2,,-1) &
"</td></b></font></tr>"
else
response.write "<td><b>" & formatcurrency( ds(79,0),2,,-1) &
"</td></b></tr>"
end if
response.write "<tr><td><b>TOTALS </td></b>"
response.write "<td><b>" &
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
s(64,0)+ds(72,0),0,,-1) & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
+ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
+ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
ormatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
)+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
response.write "<td><b>" & nbsp & "</td></b>"
response.write "<td><b>" &
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
)+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
response.write "</table>"
erase ds
end if
%>
</body>
</html>
----- Original Message -----
From: O'Hara, Elliott M <EMOHARA@k...>
To: ASP Web HowTo <asp_web_howto@p...>
Sent: Tuesday, March 20, 2001 6:08 PM
Subject: [asp_web_howto] RE: Recordset in an Array
> sorry about that...
> lemme fix that sub
> Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> dim i,j
> For i = Lower to Upper
> if i=TheNumber then
> response.write "<td><b>" &
> formatnumber(ds(i,0),0,,-1) & "</td></b>"
> elseif i =ThePercent then
> response.write "<td><b>" &
> formatpercent(ds(i,0),3,,-1) & "</td></b>"
>
> else
> response.write "<td><b>" & formatcurrency(
> ds(i,0),0,,-1) & "</td></b>"
> end if
> Next
> End Sub
>
>
> -----Original Message-----
> From: O'Hara, Elliott M [mailto:EMOHARA@k...]
> Sent: Tuesday, March 20, 2001 1:02 PM
> To: ASP Web HowTo
> Subject: [asp_web_howto] RE: Recordset in an Array
>
>
> actually I am....
> FL USA
> OK, lets see here
> Pasting you code... and a few suggestions
>
> You've probably done to much to justify redoing the whole code, but I'd
> consider making a few different arrays, depending on the type info
> then you could loop through them more freely...
> anyways, here it goes, i hope its what you want
>
> <HTML>
> <HEAD>
>
> <style type="text/css">
> <!--
> A:visited {color: #000000;}
> A:link {color: #FF0000;}
> A:hover {color: #FF0000;}
> A:active {color: #000000;}
> -->
> </style>
> </HEAD>
> <TITLE>MAVERICK PROFILE</TITLE>
> <body BGCOLOR="#FFFF80">
> <B><A HREF ="\choices\choices.html" ><FONT COLOR ="RED">Return to
> Menu</FONT></A></B><br>
>
> <A HREF ="\maverick\maverick.asp" >Return to Maverick selection
> </A><br><br>
>
> <%
> if isnull(ds(0,0)) then
> response.write "<B>NO RECORD FOUND. Have you entered the correct number
and
> is customer active?</b>"
>
> else
>
> response.write "<TABLE align=""center"" border=""1"" width=""100%"" "
> response.write " cellspacing=""1"" cellpadding =""1""
> bordercolor=""silver""> "
>
> response.write "<TR><TD><STRONG>Scheme</STRONG></TD>"
> response.write "<TD><STRONG>Txs</STRONG></TD>"
> response.write "<TD><STRONG>Turnover</STRONG></TD>"
> response.write "<TD><STRONG>ATV</STRONG></TD>"
> response.write "<TD><STRONG>Gross Inc.</STRONG></TD>"
> response.write "<TD><STRONG>MSC</STRONG></TD>"
> response.write "<TD><STRONG>Interchange</STRONG></TD>"
> response.write "<TD><STRONG>Margin</STRONG></TD>"
> response.write "<TD><STRONG>Net Income</STRONG></TD></tr>"
>
> response.write "<DIV ALIGN = CENTER ><B>" & ds(3,0) & "</B></DIV><br>"
>
> For i= 0 to ubound(ds)
> for j= 0 to lbound(ds)
> if isnull(ds(i,j)) then
> ds(i,j) =0
> end if
> next
> next
> Sub LetsSaveSumTypin(Lower,Upper,TheNumber,ThePercent)
> dim i,j
> For i = Lower to Upper
> if i=TheNumber then
> response.write "<td><b>" & formatnumber(ds(i,0),0,,-1) &
> "</td></b>"
> else if i =ThePercent then
> response.write "<td><b>" &
> formatpercent(ds(i,0),3,,-1) & "</td></b>"
> end if
> else
> response.write "<td><b>" & formatcurrency( ds(i,0),0,,-1) &
> "</td></b>"
> end if
> Next
> End Sub
>
> response.write "<tr><td><b>MasterCard Cr </td></b>"
> LetsSaveSumTypin(6,12,6,10)
>
>
> for i = 13 to 16 '??? this is what you want????
> if ds(i,0) <0 then
> response.write "<td><b><font color=red>" & formatcurrency( ds(13,0),2,,-1)
&
> "</td></b></font></tr>"
> else
> response.write "<td><b>" & formatcurrency( ds(i,0),2,,-1) &
"</td></b></tr>"
> end if
> next
>
> response.write "<tr><td><b>Visa Cr </td></b>"
> Sub LetsSaveSumTypin(14,21,14,18)
>
>
> response.write "<tr><td><b>Visa Commercial </td></b>"
> Sub LetsSaveSumTypin(24,31,24,28)
>
>
> response.write "<tr><td><b>JCB </td></b>"
> Sub LetsSaveSumTypin(32,39,32,36)
>
>
> response.write "<tr><td><b>Maestro </td></b>"
> Sub LetsSaveSumTypin(40,47,40,44)
>
>
> response.write "<tr><td><b>VDC </td></b>"
> Sub LetsSaveSumTypin(48,55,48,0)
>
>
> response.write "<tr><td><b>Switch </td></b>"
> Sub LetsSaveSumTypin(56,63,56,0)
>
>
> response.write "<tr><td><b>Electron </td></b>"
> Sub LetsSaveSumTypin(64,71,64,0)
>
>
> response.write "<tr><td><b>Solo </td></b>"
> Sub LetsSaveSumTypin(73,79,72,0)
>
>
> response.write "<tr><td><b>TOTALS </td></b>"
> response.write "<td><b>" &
>
formatnumber(ds(6,0)+ds(14,0)+ds(24,0)+ds(32,0)+ds(40,0)+ds(48,0)+ds(56,0)+d
> s(64,0)+ds(72,0),0,,-1) & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(7,0)+ds(15,0)+ds(25,0)+ds(33,0)+ds(41,0)+ds(49,0)+ds(57,0)
> +ds(65,0)+ds(73,0),0,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(9,0)+ds(17,0)+ds(27,0)+ds(35,0)+ds(43,0)+ds(51,0)+ds(59,0)
> +ds(67,0)+ds(75,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
rmatcurrency( ds(11,0)+ds(19,0)+ds(29,0)+ds(37,0)+ds(45,0)+ds(53,0)+ds(61,0
> )+ds(69,0)+ds(77,0),2,,-1) & "</td></b>"
> response.write "<td><b>" & nbsp & "</td></b>"
> response.write "<td><b>" &
>
formatcurrency(ds(13,0)+ds(21,0)+ds(31,0)+ds(39,0)+ds(47,0)+ds(55,0)+ds(63,0
> )+ds(71,0)+ds(79,0),2,,-1) & "</td></b></tr>"
>
> response.write "</table>"
>
> erase ds
> end if
> %>
> </body>
> </html>
>
>
> ---
> SoftArtisans helps developers build robust, scalable Web applications!
> Excel Web reports, charts: http://www.softartisans.com/excelwriter.html
> File uploads: http://www.softartisans.com/saf.html
> Transactional file management: http://www.softartisans.com/saf1.html
> Scalability: http://www.softartisans.com/saxsession.html
> ASPstudio value pack: http://www.softartisans.com/aspstudiosuite.html
> emohara@k.. |
View Cart
