p2p.wrox.com: Archives - asp

asp_databases thread: Listing with numbers

Message #1 by "SD-Studios" <info@s...> on Sun, 22 Apr 2001 19:09:09 +0200

I've tried to make a list of some tracks, but i dont know how to give 'em

numbers from 1 to ...something. Anyway...heres the code:



<%

Do While Not objRS.EOF

%>

 <tr>

 <td width="9" height="15" valign="top" class="text">

   <p class="text"><font size="1" color="#CC6633">01***HERE I WANT TO MAKE

THE CODE TO AUTOMATICLY PUT 02, 03... FOR EACH .</font></td>

 <td width="218" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><a href="<%=objRS("path")%>"

target="_blank"><%=objRS("artist")%> -

<%=objRS("trackname")%></a></font></td>

 <td width="69" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><%=objRS("genre")%></font></td>

 <td width="135" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><%=objRS("namn")%></font></td>

<%

objRS.MoveNext

Loop

%>



Please help me out!

--

Martin Johansson,

CEO & Project Supervisor

Sola Data

http://www.sd-studios.com

http://www.sd-gaming.com





-----Ursprungligt meddelande-----

Fran: Imar Spaanjaars [mailto:Imar@S...]

Skickat: den 19 mars 2001 17:45

Till: ASP Databases

Amne: [asp_databases] RE: Problems with MoveNext..





Haha, no problem, man. My answer also wasn't truly accepted..... ;-)





Imar





At 05:34 PM 3/19/2001 +0100, you wrote:

>Hi!

>

>Of course...I can only blame it on a bad jet lag. Just arrived from Japan.

>Should think carefully before I answer..

>I honestly apologize...

>

>Hakan

Message #2 by "Dallas Martin" <dmartin@z...> on Sun, 22 Apr 2001 15:55:17 -0400

function formatAnumber(number)

select case number

case number < 10

     formatAnumber = string(5.'0') & Cstr(x)

case number < 100

     formatAnumber = string(4.'0') & Cstr(x)

case number < 1000

     formatAnumber = string(3.'0') & Cstr(x)

case number < 10000

     formatAnumber = string(2.'0') & Cstr(x)

else

   formatAnumber = string(1.'0') & Cstr(x)

end select

end function



x = 1

do while not rs.eof

    response.write(formatAnumber(x))

....

....

 x= x + 1

loop



will produce



000009   ' x < 10

000099   'x < 100

000999  ' x  < 1000

009999  ' x < 10000

099999  'x < 1000000



etc.



Modify the code to output the number of leading zeros for your application





Dallas Martin





----- Original Message -----

From: "SD-Studios" <info@s...>

To: "ASP Databases" <asp_databases@p...>

Sent: Sunday, April 22, 2001 1:09 PM

Subject: [asp_databases] Listing with numbers





> I've tried to make a list of some tracks, but i dont know how to give 'em

> numbers from 1 to ...something. Anyway...heres the code:

>

> <%

> Do While Not objRS.EOF

> %>

>  <tr>

>  <td width="9" height="15" valign="top" class="text">

>    <p class="text"><font size="1" color="#CC6633">01***HERE I WANT TO MAKE

> THE CODE TO AUTOMATICLY PUT 02, 03... FOR EACH .</font></td>

>  <td width="218" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><a href="<%=objRS("path")%>"

> target="_blank"><%=objRS("artist")%> -

> <%=objRS("trackname")%></a></font></td>

>  <td width="69" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><%=objRS("genre")%></font></td>

>  <td width="135" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><%=objRS("namn")%></font></td>

> <%

> objRS.MoveNext

> Loop

> %>

>

> Please help me out!

> --

> Martin Johansson,

> CEO & Project Supervisor

> Sola Data

> http://www.sd-studios.com

> http://www.sd-gaming.com

>

>

> -----Ursprungligt meddelande-----

> Fran: Imar Spaanjaars [mailto:Imar@S...]

> Skickat: den 19 mars 2001 17:45

> Till: ASP Databases

> Amne: [asp_databases] RE: Problems with MoveNext..

>

>

> Haha, no problem, man. My answer also wasn't truly accepted..... ;-)

>

>

> Imar

>

>

> At 05:34 PM 3/19/2001 +0100, you wrote:

> >Hi!

> >

> >Of course...I can only blame it on a bad jet lag. Just arrived from

Japan.

> >Should think carefully before I answer..

> >I honestly apologize...

> >

> >Hakan

Message #3 by "Charles Feduke" <webmaster@r...> on Sun, 22 Apr 2001 18:53:08 -0400

    Try this:



<%

Dim iCount

Do While Not objRS.EOF

    iCount = iCount + 1

    If Len(iCount) < 2 Then iCount = "0" & iCount

%>

 <tr>

 <td width="9" height="15" valign="top" class="text">

   <p class="text"><font size="1" color="#CC6633">

    <%=iCount%>

    </font></td>

 <td width="218" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><a href="<%=objRS("path")%>"

target="_blank"><%=objRS("artist")%> -

<%=objRS("trackname")%></a></font></td>

 <td width="69" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><%=objRS("genre")%></font></td>

 <td width="135" height="15" valign="top" class="text"><font size="1"

color="#CC6633"><%=objRS("namn")%></font></td>

<%

objRS.MoveNext

Loop

%>



----- Original Message -----

From: "SD-Studios" <info@s...>

To: "ASP Databases" <asp_databases@p...>

Sent: Sunday, April 22, 2001 1:09 PM

Subject: [asp_databases] Listing with numbers





> I've tried to make a list of some tracks, but i dont know how to give 'em

> numbers from 1 to ...something. Anyway...heres the code:

>

> <%

> Do While Not objRS.EOF

> %>

>  <tr>

>  <td width="9" height="15" valign="top" class="text">

>    <p class="text"><font size="1" color="#CC6633">01***HERE I WANT TO MAKE

> THE CODE TO AUTOMATICLY PUT 02, 03... FOR EACH .</font></td>

>  <td width="218" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><a href="<%=objRS("path")%>"

> target="_blank"><%=objRS("artist")%> -

> <%=objRS("trackname")%></a></font></td>

>  <td width="69" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><%=objRS("genre")%></font></td>

>  <td width="135" height="15" valign="top" class="text"><font size="1"

> color="#CC6633"><%=objRS("namn")%></font></td>

> <%

> objRS.MoveNext

> Loop

> %>

>

> Please help me out!

> --

> Martin Johansson,

> CEO & Project Supervisor

> Sola Data

> http://www.sd-studios.com

> http://www.sd-gaming.com

Return to Index

P2P Archives