recuperare url mail

[jet]

<% strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _ 
           Server.MapPath("/mdb-database/Forum_Avatar.mdb") 
		    
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open strConn
set rs = conn.Execute("UPDATE messaggi SET accessi= accessi + 1 WHERE (((messaggi.IDmes)=" & IDmes & "))") 
conn.Close 
set conn = Nothing
%>
<% strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _ 
           Server.MapPath("/mdb-database/Forum_Avatar.mdb") 
		    
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open strConn
set rs = conn.Execute("SELECT mes, IDmes, link, NomeF FROM messaggi WHERE (((messaggi.IDmes)=" & IDmes & "))") 
link = rs("link")
link= Replace(link, "|", "'")
messaggi = rs("mes")
messaggi=replace(messaggi,":)","<img src=smile/smile1.gif>")
messaggi=replace(messaggi,":(","<img src=smile/smile2.gif>")
messaggi=replace(messaggi,":D","<img src=smile/smile3.gif>")
messaggi=replace(messaggi,";)","<img src=smile/smile4.gif>")
messaggi=replace(messaggi,":|","<img src=smile/smile5.gif>")
messaggi=replace(messaggi,":p","<img src=smile/smile6.gif>")
messaggi=replace(messaggi,":q","<img src=smile/smile7.gif>")
messaggi=replace(messaggi,":r","<img src=smile/smile8.gif>")
messaggi=replace(messaggi,":s","<img src=smile/smile9.gif>")
messaggi=replace(messaggi,":t","<img src=smile/smile10.gif>")
messaggi=replace(messaggi,":u","<img src=smile/smile11.gif>")
messaggi=replace(messaggi,":v","<img src=smile/smile12.gif>")
messaggi=replace(messaggi,":z","<img src=smile/smile13.gif>")
messaggi=replace(messaggi,":w","<img src=smile/smile14.gif>")
messaggi=replace(messaggi,":y","<img src=smile/smile15.gif>")
messaggi=replace(messaggi,":j","<img src=smile/smile16.gif>")
messaggi=replace(messaggi,":x","<img src=smile/smile17.gif>")
messaggi=replace(messaggi,":b","<img src=smile/smile18.gif>")





'Loop per URL / EMAIL

Do While NOT InStr(1, messaggi, "<a href=""mailto:", 1) = 0 AND NOT InStr(1, messaggi, "</a>", 1) = 0
					    	
	
	lngLinkStartPos = InStr(1, messaggi, "<a href=""mailto:", 1)
								
								
	lngLinkEndPos = InStr(lngLinkStartPos, messaggi, "</a>", 1) + 4
					
	
	strMessageLink = Trim(Mid(messaggi, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))	
	
	
	strTempMessageLink = strMessageLink
	
	
	strTempMessageLink = Replace(strTempMessageLink, "<a href=""mailto:", "[MAIL=", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "</a>", "[/MAIL]", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, """ class=""url"">", "]", 1, -1, 1)
	
	messaggi = Replace(messaggi, strMessageLink, strTempMessageLink, 1, -1, 1)		
Loop



'Loop 
Do While NOT InStr(1, messaggi, "<a href=""", 1) = 0 AND NOT InStr(1, messaggi, "</a>", 1) = 0
					    	
	
	lngLinkStartPos = InStr(1, messaggi, "<a href=""", 1)
						
	lngLinkEndPos = InStr(lngLinkStartPos, messaggi, "</a>", 1) + 4
					
	
	strMessageLink = Trim(Mid(messaggi, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))	
	
	
	strTempMessageLink = strMessageLink
	
	
	strTempMessageLink = Replace(strTempMessageLink, "<a href=""", "[URL=", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "</a>", "[/URL]", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, """ target=""_blank"" class=""url"">", "]", 1, -1, 1)
	
	messaggi = Replace(messaggi, strMessageLink, strTempMessageLink, 1, -1, 1)		
Loop
messaggi=Replace(messaggi,vbcrlf,"
")
messaggi=Replace(messaggi, "|", "'")
IDmes = rs("IDmes")
NomeF = rs("NomeF")
rs.Close
%>

Mi stampa sempre http://www.miosito.it

[jet]

""http://www.miosito.it""

[caio192]

Come sono scritti gli indirizzi nel DB? E tu come li vuoi far uscire?
Scusa ma non è molto chiaro.