---

Endnu et lille spørgsmål.. simpelt for mange sikkert

Udvalgte brugere kan uploade en txt-fil som jeg så vil fremvise på en side.
Jeg bruger nedenstående til det, og alt virker undtagen links... hvordan får
jeg nemmest konverteret http-adresser til aktive links ?
Jeg har prøvet forskellige replace muligheder, men det vil ikke blive helt
godt...

Håber en af jeg har en smart og nem måde.

*******
found = 0
Set filesys = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("Scripting.FileSystemObject")
set demofile = filesys.GetFolder(server.MapPath("databaser/news/"))
Set filecoll = demofile.Files
For Each fil in filecoll
fildato = left(fil.name,8)
dato = right(fildato,2) & "/" & mid(fildato,5,2) & "/" & left(fildato,4)
dato = cdate(dato)
if dato > date - 7 then
if found = 0 then
%>
<div align="center" font size="3"><u>Latest
news</u></font><br>&nbsp;</div>
<div align="center" class="small">
<%
found = 1
end if
x = len(fil.name)-13
filnavn = mid(fil.name,10,x)

response.write "<a class='news' href='admin/news-show.asp?newsid=" &
fil.name & "'>" & filnavn & "</a>"
response.write "<br>"

sti = server.MapPath("databaser/news/")
sti = sti & "/" & fil.name
Set a = fs.OpenTextFile(sti)
linein = a.readall

linein = server.HTMLEncode(linein)
linein = Replace(linein,vbcrlf,"<br>")

if len(linein) > 0 then
if len(linein) < 100 then
lineout = left(linein,len(linein))
response.write (lineout)
elseif len(linein) < 150 then
lineout = left(linein,len(linein))
response.write (lineout)
else
lineout = left(linein,150)
response.write (lineout)
end if
end if
response.write "<br>"
response.write"<hr width='50%'>"
a.close
end if
Next


*******

--
Jon Klose Larsen
VACC-DK Director
director@vacc.dk
http://www.vacc.dk/ "Real ATC by Real People"