C'è qualcosa che non funziona in questo script che non riesco a capire....è sulla Funzione è sul Replace o è nel ciclo??
codice:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>




<%
Dim cartellaForumSmiles
cartellaForumSmiles= "C:/Programmi/EasyPHP1-7/www/gold_edition_11/Gold_Edition_1.1/images/smiles/"

Function SmilesForum(Post)
'Ricavo tutte le smiles
Dim smiles

Set smiles = Server.CreateObject("ADODB.Recordset")
smiles.ActiveConnection = MM_Forum_STRING
smiles.Source = "SELECT code, smile_url, emoticon  FROM zannas_db.phpbb_smilies"
smiles.CursorType = 0
smiles.CursorLocation = 2
smiles.LockType = 1
smiles.Open()

while not smiles.EOF
msg = Replace(Post,(smiles.Fields.Item("code").Value), "[img]&cartellaForumSmiles+(smiles.Fields.Item([/img]")
smiles.MoveNext()
Wend

Response.Write(msg)
smiles.Close()
Set smiles = Nothing
end function%>
</p>



<% Dim txt
txt = "qui a destra dovrebbero comparire le smiles :twisted:  :evil:" %>
<%=SmilesForum(txt)%></p>
</body>
</html>