Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_web_howto thread: RE: Exiting a Do Loop


Message #1 by Paul Stearns <pauls@c...> on Tue, 25 Jun 2002 21:10:25 -0400
Scott:

I have two questions;

1) Is it possible that the field title in one of the records is null?

2) Is open a vbscript reserved word?

Scott Heath wrote:

> I tried those and yet to no avail. Here is that the result looks like:
>
> <list of songs here>
>
> Microsoft VBScript runtime error '800a005e'
>
> Invalid use of Null: 'cnt'
>
> /dev/julia.asp, line 16
>
> I know the error is there because it has nothing to count thus why I
> need to exit the loop.
> Scott
>
> -----Original Message-----
> From: Drew, Ron [mailto:RDrew@B...]
> Sent: Tuesday, June 25, 2002 4:40 PM
> To: ASP Web HowTo
> Subject: [asp_web_howto] RE: Exiting a Do Loop
>
> Here's how I read a recordset:
>
>   dim oConn
>   set oConn = server.CreateObject("ADODB.Connection")
>   dim oRs
>   set oRs = server.CreateObject("ADODB.Recordset")
>   oConn.open MyConnectionString
>   oRs.Open theSQL, oConn, adOpenKeyset, adLockReadOnly, adCmdText
>   if oRs.BOF and oRs.EOF then
>     ' NO ROWS
>   else
>     oRs.MoveFirst ' Just to be sure.
>     while not oRs.EOF ' While there are more records
>       ' Do stuff with a row here
>         ors.movenext ' Go to the next record, or set EOF if no more
> records.
>     wend
>   end if
>   ors.close
>   oconn.close
>   set ors = nothing
>   set oconn = nothing
>
> -----Original Message-----
> From: Scott Heath [mailto:scott@s...]
> Sent: Tuesday, June 25, 2002 5:32 PM
> To: ASP Web HowTo
> Subject: [asp_web_howto] Exiting a Do Loop
>
> I am trying to set up a loop to display records in a database but need
> to exit the loop after it reaches EOF. Below is my current code,
> basically right now it goes through the loop properly and when it gets
> to the end it does not have anything to count so it errors. How do I
> make it so that it exits of EOF?
>
> =========CODE=============
>
> 'DB Read code
> SQLStatement = "SELECT * FROM music"
> set open = Server.CreateObject("ADODB.Recordset")
> open.ActiveConnection = "dsn=Julia;"
> open.Source = SQLStatement
> open.CursorType = 0
> open.CursorLocation = 2
> open.LockType = 3
> open.Open
> open_numRows = 0
> If NOT open.EOF Then
> Do While NOT open.EOF
>         If open.EOF Then Exit Do
>         cnt = Len(open("Title")) - 4
>         title = open("Title")
>         Title = Left(title,cnt)
>         Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
>         open.MoveNext()
> Loop
>
> End If
>
> =========END CODE==========
>
> Thanks in advance.
> Scott
>
> ---
>
> Improve your web design skills with these new books from Glasshaus.
>
> Usable Web Menus
> http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
> r-20
> Constructing Accessible Web Sites
> http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
> r-20
> Practical JavaScript for the Usable Web
> http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
> r-20
>
> ---
>
> Improve your web design skills with these new books from Glasshaus.
>
> Usable Web Menus
> http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
> r-20
> Constructing Accessible Web Sites
> http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
> r-20
> Practical JavaScript for the Usable Web
> http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
> r-20
>
> ---
>
> Improve your web design skills with these new books from Glasshaus.
>
> Usable Web Menus
> http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
> r-20
> Constructing Accessible Web Sites
> http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
> r-20
> Practical JavaScript for the Usable Web
> http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
> r-20

Message #2 by "Ken Schaefer" <ken@a...> on Wed, 26 Jun 2002 12:09:43 +1000
The problem isn't that there are no records. The problem is that you are
mis-using VBScript functions.
I suspect that line 16 is this one:

: Title = Left(title,cnt)

In the VBScript documentation you will see that Left() expects two
parameters. The first is a string, the second is a numeric expression. The
problem is that the variable cnt is NULL. NULL is not a valid numeric
expression, so an error is generated.

Why is cnt NULL? Probably becausse of this line:

: cnt = Len(open("Title")) - 4

If you look at the docs for the Len() function, Len returns a NULL if the
supplied argument is NULL. What you probably have is a record where the
Title is NULL, hence Len() returns NULL, which means cnt is NULL, which
means that the call to Left() is throwing an error.

VBScript docs can be downloaded from here:
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-
US/scrdoc56en.exe

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----- Original Message -----
From: "Scott Heath" <scott@s...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Wednesday, June 26, 2002 7:49 AM
Subject: [asp_web_howto] RE: Exiting a Do Loop


: I tried those and yet to no avail. Here is that the result looks like:
:
: <list of songs here>
:
: Microsoft VBScript runtime error '800a005e'
:
: Invalid use of Null: 'cnt'
:
: /dev/julia.asp, line 16
:
: I know the error is there because it has nothing to count thus why I
: need to exit the loop.
: Scott
:
: -----Original Message-----
: From: Drew, Ron [mailto:RDrew@B...]
: Sent: Tuesday, June 25, 2002 4:40 PM
: To: ASP Web HowTo
: Subject: [asp_web_howto] RE: Exiting a Do Loop
:
: Here's how I read a recordset:
:
:   dim oConn
:   set oConn = server.CreateObject("ADODB.Connection")
:   dim oRs
:   set oRs = server.CreateObject("ADODB.Recordset")
:   oConn.open MyConnectionString
:   oRs.Open theSQL, oConn, adOpenKeyset, adLockReadOnly, adCmdText
:   if oRs.BOF and oRs.EOF then
:     ' NO ROWS
:   else
:     oRs.MoveFirst ' Just to be sure.
:     while not oRs.EOF ' While there are more records
:       ' Do stuff with a row here
:         ors.movenext ' Go to the next record, or set EOF if no more
: records.
:     wend
:   end if
:   ors.close
:   oconn.close
:   set ors = nothing
:   set oconn = nothing
:
: -----Original Message-----
: From: Scott Heath [mailto:scott@s...]
: Sent: Tuesday, June 25, 2002 5:32 PM
: To: ASP Web HowTo
: Subject: [asp_web_howto] Exiting a Do Loop
:
:
: I am trying to set up a loop to display records in a database but need
: to exit the loop after it reaches EOF. Below is my current code,
: basically right now it goes through the loop properly and when it gets
: to the end it does not have anything to count so it errors. How do I
: make it so that it exits of EOF?
:
: =========CODE=============
:
: 'DB Read code
: SQLStatement = "SELECT * FROM music"
: set open = Server.CreateObject("ADODB.Recordset")
: open.ActiveConnection = "dsn=Julia;"
: open.Source = SQLStatement
: open.CursorType = 0
: open.CursorLocation = 2
: open.LockType = 3
: open.Open
: open_numRows = 0
: If NOT open.EOF Then
: Do While NOT open.EOF
: If open.EOF Then Exit Do
: cnt = Len(open("Title")) - 4
: title = open("Title")
: Title = Left(title,cnt)
: Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
: open.MoveNext()
: Loop
:
: End If
:
: =========END CODE==========
:
: Thanks in advance.
: Scott
:
:
.

Message #3 by "Scott Heath" <scott@s...> on Tue, 25 Jun 2002 22:58:01 -0500
Ken,
I didn't even think to look at the database. I had an empty record in
there. 
Thanks!

-----Original Message-----
From: Ken Schaefer [mailto:ken@a...] 
Sent: Tuesday, June 25, 2002 9:10 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: Exiting a Do Loop

The problem isn't that there are no records. The problem is that you are
mis-using VBScript functions.
I suspect that line 16 is this one:

: Title = Left(title,cnt)

In the VBScript documentation you will see that Left() expects two
parameters. The first is a string, the second is a numeric expression.
The
problem is that the variable cnt is NULL. NULL is not a valid numeric
expression, so an error is generated.

Why is cnt NULL? Probably becausse of this line:

: cnt = Len(open("Title")) - 4

If you look at the docs for the Len() function, Len returns a NULL if
the
supplied argument is NULL. What you probably have is a record where the
Title is NULL, hence Len() returns NULL, which means cnt is NULL, which
means that the call to Left() is throwing an error.

VBScript docs can be downloaded from here:
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP
/EN-
US/scrdoc56en.exe

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----- Original Message -----
From: "Scott Heath" <scott@s...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Wednesday, June 26, 2002 7:49 AM
Subject: [asp_web_howto] RE: Exiting a Do Loop


: I tried those and yet to no avail. Here is that the result looks like:
:
: <list of songs here>
:
: Microsoft VBScript runtime error '800a005e'
:
: Invalid use of Null: 'cnt'
:
: /dev/julia.asp, line 16
:
: I know the error is there because it has nothing to count thus why I
: need to exit the loop.
: Scott
:
: -----Original Message-----
: From: Drew, Ron [mailto:RDrew@B...]
: Sent: Tuesday, June 25, 2002 4:40 PM
: To: ASP Web HowTo
: Subject: [asp_web_howto] RE: Exiting a Do Loop
:
: Here's how I read a recordset:
:
:   dim oConn
:   set oConn = server.CreateObject("ADODB.Connection")
:   dim oRs
:   set oRs = server.CreateObject("ADODB.Recordset")
:   oConn.open MyConnectionString
:   oRs.Open theSQL, oConn, adOpenKeyset, adLockReadOnly, adCmdText
:   if oRs.BOF and oRs.EOF then
:     ' NO ROWS
:   else
:     oRs.MoveFirst ' Just to be sure.
:     while not oRs.EOF ' While there are more records
:       ' Do stuff with a row here
:         ors.movenext ' Go to the next record, or set EOF if no more
: records.
:     wend
:   end if
:   ors.close
:   oconn.close
:   set ors = nothing
:   set oconn = nothing
:
: -----Original Message-----
: From: Scott Heath [mailto:scott@s...]
: Sent: Tuesday, June 25, 2002 5:32 PM
: To: ASP Web HowTo
: Subject: [asp_web_howto] Exiting a Do Loop
:
:
: I am trying to set up a loop to display records in a database but need
: to exit the loop after it reaches EOF. Below is my current code,
: basically right now it goes through the loop properly and when it gets
: to the end it does not have anything to count so it errors. How do I
: make it so that it exits of EOF?
:
: =========CODE=============
:
: 'DB Read code
: SQLStatement = "SELECT * FROM music"
: set open = Server.CreateObject("ADODB.Recordset")
: open.ActiveConnection = "dsn=Julia;"
: open.Source = SQLStatement
: open.CursorType = 0
: open.CursorLocation = 2
: open.LockType = 3
: open.Open
: open_numRows = 0
: If NOT open.EOF Then
: Do While NOT open.EOF
: If open.EOF Then Exit Do
: cnt = Len(open("Title")) - 4
: title = open("Title")
: Title = Left(title,cnt)
: Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
: open.MoveNext()
: Loop
:
: End If
:
: =========END CODE==========
:
: Thanks in advance.
: Scott
:
:
.



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20


Message #4 by "Scott Heath" <scott@s...> on Tue, 25 Jun 2002 16:49:28 -0500
I tried those and yet to no avail. Here is that the result looks like:

<list of songs here>

Microsoft VBScript runtime error '800a005e' 

Invalid use of Null: 'cnt' 

/dev/julia.asp, line 16

I know the error is there because it has nothing to count thus why I
need to exit the loop.
Scott

-----Original Message-----
From: Drew, Ron [mailto:RDrew@B...] 
Sent: Tuesday, June 25, 2002 4:40 PM
To: ASP Web HowTo
Subject: [asp_web_howto] RE: Exiting a Do Loop

Here's how I read a recordset:

  dim oConn 
  set oConn = server.CreateObject("ADODB.Connection")
  dim oRs
  set oRs = server.CreateObject("ADODB.Recordset")
  oConn.open MyConnectionString
  oRs.Open theSQL, oConn, adOpenKeyset, adLockReadOnly, adCmdText
  if oRs.BOF and oRs.EOF then
    ' NO ROWS
  else
    oRs.MoveFirst ' Just to be sure.
    while not oRs.EOF ' While there are more records
      ' Do stuff with a row here
        ors.movenext ' Go to the next record, or set EOF if no more
records.
    wend
  end if
  ors.close
  oconn.close
  set ors = nothing
  set oconn = nothing

-----Original Message-----
From: Scott Heath [mailto:scott@s...] 
Sent: Tuesday, June 25, 2002 5:32 PM
To: ASP Web HowTo
Subject: [asp_web_howto] Exiting a Do Loop


I am trying to set up a loop to display records in a database but need
to exit the loop after it reaches EOF. Below is my current code,
basically right now it goes through the loop properly and when it gets
to the end it does not have anything to count so it errors. How do I
make it so that it exits of EOF?

=========CODE=============

'DB Read code
SQLStatement = "SELECT * FROM music"
set open = Server.CreateObject("ADODB.Recordset")
open.ActiveConnection = "dsn=Julia;"
open.Source = SQLStatement
open.CursorType = 0
open.CursorLocation = 2
open.LockType = 3
open.Open
open_numRows = 0
If NOT open.EOF Then
Do While NOT open.EOF
	If open.EOF Then Exit Do
	cnt = Len(open("Title")) - 4
	title = open("Title")
	Title = Left(title,cnt)
	Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
	open.MoveNext()
Loop

End If

=========END CODE==========

Thanks in advance.
Scott




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20


---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
r-20


Message #5 by "Drew, Ron" <RDrew@B...> on Tue, 25 Jun 2002 17:40:16 -0400
Here's how I read a recordset:

  dim oConn
  set oConn =3D server.CreateObject("ADODB.Connection")
  dim oRs
  set oRs =3D server.CreateObject("ADODB.Recordset")
  oConn.open MyConnectionString
  oRs.Open theSQL, oConn, adOpenKeyset, adLockReadOnly, adCmdText
  if oRs.BOF and oRs.EOF then
    ' NO ROWS
  else
    oRs.MoveFirst ' Just to be sure.
    while not oRs.EOF ' While there are more records
      ' Do stuff with a row here
        ors.movenext ' Go to the next record, or set EOF if no more
records.
    wend
  end if
  ors.close
  oconn.close
  set ors =3D nothing
  set oconn =3D nothing

-----Original Message-----
From: Scott Heath [mailto:scott@s...]
Sent: Tuesday, June 25, 2002 5:32 PM
To: ASP Web HowTo
Subject: [asp_web_howto] Exiting a Do Loop


I am trying to set up a loop to display records in a database but need
to exit the loop after it reaches EOF. Below is my current code,
basically right now it goes through the loop properly and when it gets
to the end it does not have anything to count so it errors. How do I
make it so that it exits of EOF?

=3D=3D=3D=3D=3D=3D=3D=3D=3DCODE=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

'DB Read code
SQLStatement =3D "SELECT * FROM music"
set open =3D Server.CreateObject("ADODB.Recordset")
open.ActiveConnection =3D "dsn=3DJulia;"
open.Source =3D SQLStatement
open.CursorType =3D 0
open.CursorLocation =3D 2
open.LockType =3D 3
open.Open
open_numRows =3D 0
If NOT open.EOF Then
Do While NOT open.EOF
	If open.EOF Then Exit Do
	cnt =3D Len(open("Title")) - 4
	title =3D open("Title")
	Title =3D Left(title,cnt)
	Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
	open.MoveNext()
Loop

End If

=3D=3D=3D=3D=3D=3D=3D=3D=3DEND CODE=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Thanks in advance.
Scott




---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20
Message #6 by Paul R Stearns <pauls@c...> on Tue, 25 Jun 2002 17:41:58 -0400
Scott:

I do not use this particular construct. I would write it thusly;

While NOT open.EOF
        cnt = Len(open("Title")) - 4
        title = open("Title")
        Title = Left(title,cnt)
        Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
        open.MoveNext()
wend

See if this works for you...

Paul

Scott Heath wrote:

> I am trying to set up a loop to display records in a database but need
> to exit the loop after it reaches EOF. Below is my current code,
> basically right now it goes through the loop properly and when it gets
> to the end it does not have anything to count so it errors. How do I
> make it so that it exits of EOF?
>
> =========CODE=============
>
> 'DB Read code
> SQLStatement = "SELECT * FROM music"
> set open = Server.CreateObject("ADODB.Recordset")
> open.ActiveConnection = "dsn=Julia;"
> open.Source = SQLStatement
> open.CursorType = 0
> open.CursorLocation = 2
> open.LockType = 3
> open.Open
> open_numRows = 0
> If NOT open.EOF Then
> Do While NOT open.EOF
>         If open.EOF Then Exit Do
>         cnt = Len(open("Title")) - 4
>         title = open("Title")
>         Title = Left(title,cnt)
>         Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
>         open.MoveNext()
> Loop
>
> End If
>
> =========END CODE==========
>
> Thanks in advance.
> Scott
>
> ---
>
> Improve your web design skills with these new books from Glasshaus.
>
> Usable Web Menus
> http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
> r-20
> Constructing Accessible Web Sites
> http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
> r-20
> Practical JavaScript for the Usable Web
> http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
> r-20

Message #7 by "Scott Heath" <scott@s...> on Tue, 25 Jun 2002 16:31:58 -0500
I am trying to set up a loop to display records in a database but need
to exit the loop after it reaches EOF. Below is my current code,
basically right now it goes through the loop properly and when it gets
to the end it does not have anything to count so it errors. How do I
make it so that it exits of EOF?

=========CODE=============

'DB Read code
SQLStatement = "SELECT * FROM music"
set open = Server.CreateObject("ADODB.Recordset")
open.ActiveConnection = "dsn=Julia;"
open.Source = SQLStatement
open.CursorType = 0
open.CursorLocation = 2
open.LockType = 3
open.Open
open_numRows = 0
If NOT open.EOF Then
Do While NOT open.EOF
	If open.EOF Then Exit Do
	cnt = Len(open("Title")) - 4
	title = open("Title")
	Title = Left(title,cnt)
	Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
	open.MoveNext()
Loop

End If

=========END CODE==========

Thanks in advance.
Scott


Message #8 by "Ken Schaefer" <ken@a...> on Wed, 26 Jun 2002 11:47:50 +1000
a) You say "it doesn't have anything to count", but I don't see any
"counting" anywhere in your loop. What is the *exact* error message you are
receiving?

b) Don't use SELECT * - it's a *bad* idea. Especially if you only need to
use two fields from your database. At the moment you're returning
*everything* in the table!

c) Don't use a connection string to open a recordset object. Why? ADO
creates a connection object behind the scenes to connect the recordset to
the database. However you have no reference to this connection so you can't
dispose of it (it just hangs around until it timesout), and you lose all the
benefits of connection pooling

Connection Pooling Explained:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnmdac/html
/pooling2.asp

Pooling of ADO objects called from ASP pages:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q191572

d) Don't use "magic numbers" - used named constants instead. If you don't
want to import the adovbs.inc file, you can put a single line referencing
the ADO Type Library in your global.asa file, and then you can access all
the named constants in all your pages:
www.adopenstatic.com/faq/800a0bb9step2.asp

Then you could do:

<%
objRS.Open strSQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
%>

e) Please use some kind of notation for your variables/objects, so that you
know what they are. Don't use generic words, especially if they are
reserved. For example "Open" is the name of many methods, including for the
ADO Connection object, and the ADO Recordset Object. Title is a HTML
keyword.

Instead, perhaps you could call your connection object objConn, and your
recordset object: objRS. An album title would be called strAlbumTitle etc

Cheers
Ken


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Scott Heath" <scott@s...>
Subject: [asp_web_howto] Exiting a Do Loop


: I am trying to set up a loop to display records in a database but need
: to exit the loop after it reaches EOF. Below is my current code,
: basically right now it goes through the loop properly and when it gets
: to the end it does not have anything to count so it errors. How do I
: make it so that it exits of EOF?
:
: =========CODE=============
:
: 'DB Read code
: SQLStatement = "SELECT * FROM music"
: set open = Server.CreateObject("ADODB.Recordset")
: open.ActiveConnection = "dsn=Julia;"
: open.Source = SQLStatement
: open.CursorType = 0
: open.CursorLocation = 2
: open.LockType = 3
: open.Open
: open_numRows = 0
: If NOT open.EOF Then
: Do While NOT open.EOF
: If open.EOF Then Exit Do
: cnt = Len(open("Title")) - 4
: title = open("Title")
: Title = Left(title,cnt)
: Response.Write(open("Artist") & "&nbsp" & Title & "<BR>")
: open.MoveNext()
: Loop
:
: End If
:
: =========END CODE==========
:
: Thanks in advance.
: Scott
:
:
:
:
: ---
:
: Improve your web design skills with these new books from Glasshaus.
:
: Usable Web Menus
: http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
: r-20
: Constructing Accessible Web Sites
: http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
: r-20
: Practical JavaScript for the Usable Web
: http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
: r-20


  Return to Index