ciao
l'unica chat discreta in asp sembra quella di toro seduto ma ha il refresh fastidioso ,come posso risolverlo: questo è il file centro punto asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META HTTP-EQUIV="REFRESH" CONTENT="2" ; URL="centro.asp">
</head>
<body>
<%
Dim strSQL, TX
strSQL = "SELECT * FROM testi WHERE (controllo = '0' OR controllo = '"&session ("utente")&"') ORDER BY Id DESC "
Dim conn, ObjRS
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/Chat.mdb")
Set objRS = Server.CreateObject ("ADODB.Recordset")
Const adCmdTable = 2
objRS.maxrecords=20
ObjRS.Open strSQL,conn
If not objRS.eof then
Do until objRS.eof
TX=objRS("testo")
TX = replace(TX,"","[img]smile/smile1.gif[/img]")
TX = replace(TX,"","[img]smile/smile2.gif[/img]")
TX = replace(TX,"","[img]smile/smile3.gif[/img]")
TX = replace(TX,"","[img]smile/smile4.gif[/img]")
TX = replace(TX,"*","'")
if objRS("controllo")=session ("utente") then
%>
<div align=center><font size='2' color='silver'>*** MESSAGGIO PRIVATO DA:***</font>
<font size='2' color='silver'>*** <%=objRS("utente")%> ***</font>
<font size='2' color='darkblue'>- <%=TX%></font>
<font size='2' color='silver'>*** END ***</font></div>
<%else
%>
<font size='2' color='black'><%=objRS("utente")%></font> -
<font size=2><%=TX%></font>
<%
end if
objRS.movenext
Loop
objRS.close
end if
Set objRS = Nothing
conn.Close
Set conn = Nothing
%>
</body>
</html>
Rispondi quotando
