Jeg skal have flettet en log ind...

Ok, jeg afsætter lidt flere point!

HALLO!!! - ASP geeks, det er her i kommer ind i billedet. Passitivet lønner sig ikke her!

du skal lave et system som skrive havd hver enkelt skriver i chatten. Så¨vi jeg kan se vil det at gemme til en text fil her være det samme som at gemme et screen-shot hvert 3 sekund.

Her er lidt omkring skrivning til en tekst fil:
http://support.microsoft.com/support/kb/articles/Q299/8/71.ASP

Øhh.. kan du ikke lave noget lignende af det her?

<html>
<head>
<meta http-equiv=\"refresh\" content=\"3\">
</head>
<body bottommargin=\"0\" vlink=#000000 link=#000000 topmargin=\"0\" rightmargin=\"0\" leftmargin=\"0\" onload=\"scrollTo(0,5000000);\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=226 valign=\"bottom\" bgcolor=white>
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim convo
convo = Application(\"conversation\")
If Len(convo) > 2000 Then
      convo = Right(convo, 2000)
  Application.Lock
  Application(\"conversation\") = convo
  Application.Unlock
End If

Set FS = CreateObject(\"Scripting.Filesystemobject\")
Set F = FS.OpenTextFile(Server.Mappath(\"dinfil.txt\"),2)

F.Writeline(convo)
%>
<br>
<%
Response.Write convo
%>
</font>
  </td>
</table>


</body>
</html>



og husk at sørg for at filen eksisterer

Prøver det lige...så får du nok point!

Problemet er at den overskriver den gamle kode, når application(convo) ændres. Når den resettes eller dropper de tegn der ikke er blandt de 2000 nyeste, så sletter den dem. Jeg vil gerne kunne logge alt, hvad der er blevet skrevet...

->Zeth????

Er du der?

Der hvor du skriver ting ind i Application(\"conversation\")  skal du også gemme i en log fil. Som jeg skrev tidligere svare det sted du ligger loggen til at du laver et screen-dump hvert 3 sekund. Selv om der ikke \"sker\" noget på chatten vil du gemme op til 2Kb hvert 3 sekund.

Hvis det er et godt nok sted kan du ændre 2 til 8.

Set F = FS.OpenTextFile(Server.Mappath(\"dinfil.txt\"),8)

Du skal nok også lige sætte en close efter denne:

F.Writeline(convo)
F.Close

Det virker da, men er ikke optimalt...jeg tror løsningen bliver helt ny kerne, baseret på DB.

Men tak for den hjælp i gav...