Smiles..aiuto

**zannas** · 26-11-2004, 18:50

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>

**zannas** · 28-11-2004, 12:12

ho provato anche questo ma nulla...cosa ho sbagliato?????

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<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
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 = 3
smiles.LockType = 1
smiles.Open()

do while not smiles.eof
msg = Replace(Post,(smiles.Fields.Item("code").Value), "[img]&cartellaForumSmiles+(smiles.Fields.Item([/img]")
smiles.movenext
loop

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



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


</body>
</html>

**zannas** · 01-12-2004, 16:46

nessuno sa darmi una mano????

:master:

**Roby_72** · 01-12-2004, 19:17

Ma l'errore quale sarebbe e dove?

Roby

**zannas** · 04-12-2004, 16:04

l'errore è che invece di stampare le faccine con le immagini, lo script mi restituisce esattamente quello che ho scritto...

**Roby_72** · 04-12-2004, 16:45

Il tuo server supporta ASP vero?

Roby

**zannas** · 05-12-2004, 12:47

assolutamente si.....ho provato a fare questo file tanto per vedere se funzionava e funziona...ecco il codice:

codice:

 <%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

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

Dim cartellasmiles
cartellasmiles = "/smiles/"
Do until rssmiles.EOF
Response.Write((rssmiles.Fields.Item("code").Value) &"[img]&cartellasmiles+(rssmiles.Fields.Item([/img]")
rssmiles.Movenext()
loop

rssmiles.Close()
Set rssmiles = Nothing
%>
</body>
</html>

ma il file con il replace delle smiles non vuole saperne di andare...

non ne posso +...cosa c'è di sbagliato?

**Roby_72** · 05-12-2004, 12:50

codice:

msg = Replace(Post,(smiles.Fields.Item("code").Value), "[img][/img]")

Roby

**zannas** · 16-12-2004, 16:55

Do until rssmiles.EOF
Post = Replace(Post,(rssmiles.Fields.Item("code").Value), "[img]&cartellaForumSmiles+(rssmiles.Fields.Item([/img]")
rssmiles.Movenext()
loop
Response.Write(Post)
ecco l'errore...andava Post invece che msg. Che cagata...

Discussione: Smiles..aiuto

Strumenti discussione

Ricerca discussione

Visualizza

Smiles..aiuto

Permessi di invio