Trying to create hyperlinks

[laura]

I am writing some code for an intranet and I need to be able to list the
files in folders and subfolders and display them in the browser window as
with hyperlinks.

I've picked up this very useful code on the internet from
www.4guysfromrolla.com. It works a treat, but one problem! If there is a
filename that contains a space, e.g., "my file.doc" the hyperlink only
links up to the space, e.g., it will hyperlink "my" and nothing else.

Here is the code which picks up file names without spaces and is called from
an HTML file as follows (maxitek being the name of my computer)
<a href="dir.asp?P P=C:\Inetpub\ww wroot\&UU=//maxitek">dir.as p</a>

Sub Main()
Dim sPP, sUP, fso, f, fc, ff, fl
sPP = Request.QuerySt ring("PP") 'Physical Path
sUP = Request.QuerySt ring("UP") 'URL Path

Set fso = CreateObject("S cripting.FileSy stemObject")
Set f = fso.GetFolder(s PP)
Set fc = f.Files
Set ff = f.SubFolders
For Each fl in fc
Response.Write "<a href=" & sUP & fl.name & ">" & fl.name & "</a> <br>"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
End Sub

Main()
%>

[Tom Kaminski [MVP]]

"laura" <re*****@group. com> wrote in message
news:#H******** ******@tk2msftn gp13.phx.gbl...

I am writing some code for an intranet and I need to be able to list the
files in folders and subfolders and display them in the browser window as
with hyperlinks.

I've picked up this very useful code on the internet from
www.4guysfromrolla.com. It works a treat, but one problem! If there is a
filename that contains a space, e.g., "my file.doc" the hyperlink only
links up to the space, e.g., it will hyperlink "my" and nothing else.

Here is the code which picks up file names without spaces and is called from an HTML file as follows (maxitek being the name of my computer)
<a href="dir.asp?P P=C:\Inetpub\ww wroot\&UU=//maxitek">dir.as p</a>

Sub Main()
Dim sPP, sUP, fso, f, fc, ff, fl
sPP = Request.QuerySt ring("PP") 'Physical Path
sUP = Request.QuerySt ring("UP") 'URL Path

Set fso = CreateObject("S cripting.FileSy stemObject")
Set f = fso.GetFolder(s PP)
Set fc = f.Files
Set ff = f.SubFolders
For Each fl in fc
Response.Write "<a href=" & sUP & fl.name & ">" & fl.name & "</a> <br>"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
End Sub

Main()
%>

Make sure the href val is quoted. I like to use single quotes in this case:

Response.Write "<a href='" & sUP & fl.name & "'>" & fl.name & "</a> <br>"

--
Tom Kaminski IIS MVP
http://www.microsoft.com/windowsserv...y/centers/iis/
http://mvp.support.microsoft.com/
http://www.iistoolshed.com/ - tools, scripts, and utilities for running IIS

[laura]

Tom,

YOU'RE WONDERFUL!!! Thank you so much!! It works.. stupid me for not
realising!

All the best
Laura
"Tom Kaminski [MVP]" <tomk (A@T) mvps (D.O.T) org> wrote in message
news:OK******** ******@TK2MSFTN GP09.phx.gbl...

"laura" <re*****@group. com> wrote in message
news:#H******** ******@tk2msftn gp13.phx.gbl...

I am writing some code for an intranet and I need to be able to list the
files in folders and subfolders and display them in the browser window as
with hyperlinks.

I've picked up this very useful code on the internet from
www.4guysfromrolla.com. It works a treat, but one problem! If there is a
filename that contains a space, e.g., "my file.doc" the hyperlink only
links up to the space, e.g., it will hyperlink "my" and nothing else.

Here is the code which picks up file names without spaces and is called

from

an HTML file as follows (maxitek being the name of my computer)
<a href="dir.asp?P P=C:\Inetpub\ww wroot\&UU=//maxitek">dir.as p</a>

Sub Main()
Dim sPP, sUP, fso, f, fc, ff, fl
sPP = Request.QuerySt ring("PP") 'Physical Path
sUP = Request.QuerySt ring("UP") 'URL Path

Set fso = CreateObject("S cripting.FileSy stemObject")
Set f = fso.GetFolder(s PP)
Set fc = f.Files
Set ff = f.SubFolders
For Each fl in fc
Response.Write "<a href=" & sUP & fl.name & ">" & fl.name & "</a>
<br>"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
End Sub

Main()
%>

Make sure the href val is quoted. I like to use single quotes in this
case:

Response.Write "<a href='" & sUP & fl.name & "'>" & fl.name & "</a> <br>"

--
Tom Kaminski IIS MVP
http://www.microsoft.com/windowsserv...y/centers/iis/
http://mvp.support.microsoft.com/
http://www.iistoolshed.com/ - tools, scripts, and utilities for running
IIS

[Kyle Peterson]

http://www.powerasp.com/content/new/...hyperlinks.asp

"laura" <re*****@group. com> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

I am writing some code for an intranet and I need to be able to list the
files in folders and subfolders and display them in the browser window as
with hyperlinks.

I've picked up this very useful code on the internet from
www.4guysfromrolla.com. It works a treat, but one problem! If there is a
filename that contains a space, e.g., "my file.doc" the hyperlink only
links up to the space, e.g., it will hyperlink "my" and nothing else.

Here is the code which picks up file names without spaces and is called
from an HTML file as follows (maxitek being the name of my computer)
<a href="dir.asp?P P=C:\Inetpub\ww wroot\&UU=//maxitek">dir.as p</a>

Sub Main()
Dim sPP, sUP, fso, f, fc, ff, fl
sPP = Request.QuerySt ring("PP") 'Physical Path
sUP = Request.QuerySt ring("UP") 'URL Path

Set fso = CreateObject("S cripting.FileSy stemObject")
Set f = fso.GetFolder(s PP)
Set fc = f.Files
Set ff = f.SubFolders
For Each fl in fc
Response.Write "<a href=" & sUP & fl.name & ">" & fl.name & "</a> <br>"
Next
Set ff = nothing
Set fso = nothing
Set f = nothing
Set fc = nothing
End Sub

Main()
%>