<%
Call PageAccess()
strMessage = Server.HTMLEncode(Trim(Replace(Request("chattText"), "'", "''")))
If strMessage <> "" then
Call dbOpen()
strSQL = "INSERT INTO chattMeddelande (avchattUser, chattText, skrivTid) VALUES ('"_
& Session("Inloggad") & "', '" & strMessage & "', '" & Now & "');"
minCon.Execute strSQL
Call dbClose()
End If
%>
Chatta