Simple Chat

nope samma skit

provat så här också:

länk till chattet:

chat/default.asp?id=<%=Session("id")%>

chat/main.asp?id=<%=Session("id")%>

chattet:
--------------------------------------

default.asp

<html>
<head>
<title>PLANKA.COM&#0124;MUNITY - CHAT 1.0</title>
</head>
	

<frameset rows="88%,*" framespacing="1" border="0" frameborder="0">
    <frameset cols="*,92%,4%">
      <frame name="Top" src="vanster.asp" scrolling="no" target="_self" noresize>
      <frameset rows="*,88%">
        <frame name="sd" scrolling="no" src="top.asp" noresize target="_self">
        <frame name="chat" src="main.asp" scrolling="auto" target="_self">
      </frameset>
      <frame name="Top3" src="online.asp" scrolling="no" noresize target="_self">
    </frameset>
  <frame name="Bottom" src="send.asp" scrolling="no" marginwidth="4" marginheight="4" noresize target="chat">
  <noframes>
  <body>
  <p>Denne side bruger frames, og det understøtter din browser ikke.</p>
  </body>
  </noframes>
</frameset>

</body>
</html>

main.asp

<!-- #include file="../adovbs.inc" -->
<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<html>

<head>

<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="REFRESH" content="3; URL=main.asp">
<title>Ny sida 1</title>
<base target="_self">
</head>

<body bgcolor="#FFF8E8">
<% strUser = "<b>" & session("username") & "</b>: "
strMessage = Server.HTMLEncode(TRIM(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action") = "Skicka" Then
If Len(strMessage) > 0 Then
strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")%>
<%=session("username")%>
</body>

</html>

de övriga e tomma!!

jag får följande felmess:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'id ='.
/chat/main.asp, line 10

... och det beror på att session("id") är tom.

Jag kan dock inte förstå varför. Kan du använda session("username") på alla sidor utom chatten? Det är inte så att chatten ligger på en annan server?

Var någonstans kan du annars använda den sessionsvariabeln?

den ligger på min server!!!

jag kan använda session på alla sidorna utan chattet det kan kanske bero på att jag har chattet i en annan mapp

Varför inte prova att flytta in det i samma mapp som resten? Så länge det inte är en egen applikation på din server så ska den ju tillhöra samma så att säga.

ja nu funkar det :-) men hur gör man om man vill att den ska funka i en mapp istället????

hur får jag så att det står session("username") har joinat chattet?

så här ser koden ut:

<% 

strUser = "<b>" & session("username") &"</b>: "
strMessage = Server.HTMLEncode(TRIM(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action")  = "Skicka" Then
If Len(strMessage) > 0 Then

strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")%>