Ho questo codice asp, che mi visualizza alcuni dati ( url sito, email, nome sito) prelevando i dati da un file testo:

codice:
<%
dim navfile, fileObj
fname = Server.MapPath(constFile & ".txt")
set fileObj = createobject("Scripting.FileSystemObject")
set navfile = fileObj.OpenTextFile(fname, 1, 0)
dim nav, x, itemcount
dim item()
While not navfile.AtEndofStream
nav = navfile.readline
Redim item(5)
itemcount = 0
for x = 1 to len(nav)
if mid(nav,x,1) <> "," then
item(itemcount) = item(itemcount) & mid(nav,x,1)
Else
itemcount = itemcount + 1
End If
Next
Response.Write("<table border=""0"" width=""80%"" 
align=""center"" 
cellpadding=""0""
 cellspacing=""0"" ><tr>
<td align=""left""
 bgcolor="""&barraleggi&""">")
response.write
("<font size=""2""
 color="""&ttcolor&""" 
class=""Stile2"">
Da: " & item(0) & "
</font></td>
<td align=""center"" 
bgcolor="""&barraleggi&""">
<font size=""2"" 
color="""&ttcolor&""">" & item(1) & "
</font></td>
</tr><tr>
<td align=""left"" 
bgcolor="""&bgcolor&""" 
colspan=""2"">
<font size=""2"">
E-mail: 
<a href=""mailto:" & item(2) & """ class=""lnk2"">" & item(2) & "
</a>
</font>

<font size=""2"">
Nome sito: " & item(3) & "
</font>

<font size=""2"">
Url sito: 
<a href=""" & item(4) & """ 
class=""lnk2"">" & item(4) & "
</a></font>


<font size=""2""
 color="""&ttcolor&"""
 class=""Stile13"">" & item(5) & "</font></td>
</tr></table>

")
Wend
navfile.close
set fileObj = Nothing
%>
</div>
Il problema sta nel fatto
che quanto mi riporta
l'Url del sito, mi
da tutto l'indirizzo
partendo dalla root e mi aggiunge poi l'indirizzo del sito
che l'utente ha
aggiunto in precedenza e
che è scritto nel dile testo, in poche
parole si presenta così:

http://www.miosito.it/local/gb/www.sitoinserito.it

per essere giusto dovrebbe darmi solo www.sitoinserito.it

Come posso modificare il codice per risolvere il problema???
Spero di essere stato chiaro.

Ciao e Grazie