ניסיתי לעשות צא'ט דרך אפלקציה.
יש בעיה בשרשור.בעיה:
Microsoft VBScript compilation error '800a03ea' Syntax error /aviad/chat.asp, line 41 Application("users")=Application("users")+nick_user+<br> ----------------------------------------------------^
|
<html> <head> <%@ Language="VBScript" codepage=1255%> <title>chat</title> </head><body bgcolor="white"> <center> <% found_member=Session("ID") %> <% Set oConn = Server.CreateObject("ADODB.Connection") Set tableRs=Server.CreateObject("ADODB.Recordset") oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _ "Uid=admin;" & _ "Pwd=;" mySql= "Select fname From table1 WHERE id=('"&found_member&"')" tableRs.Open mySql, oConn,3,3 %> <% nick_user=tableRs.fields("fname") %> <% tableRs.Close oConn.Close Set tableRs=nothing Set oConn= nothing %>
<% Application("getmsg")="" %> <% Application("users")="" %> <% If Session("ID")>=1 Then %> <% Application("users")=Application("users")+nick_user+<br> %> <% End IF %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="419" height="315"> <tr> <td width="330" height="290"> <% Application("getmsg")=& Application("getmsg") &+<br>+ & Request.Form("send_msg") & %> <% =Application %> </td> <td width="83" height="290"><% =Application("users") %></td> </tr> <tr> <td width="419" height="21" colspan="2"> <form action="chat.asp" method="post"> <input type="text" name="send_msg" width="100%"> <input type="submit" value="שלח"> </form>
</td> </tr> </table> </center> </body> </html>
|
תודה מראש לעוזרים

