!-- #include virtual="/includes/dbkoppling.asp" -->
<%
Call PageAccess()
strMessage = Server.HTMLEncode(Trim(Replace(Request("chattText"), "'", "''")))
If strMessage <> "" then
Call dbOpen()
strSQL = "INSERT INTO chattMeddelande (avchattUser, chattText, skrivTid) VALUES ('"_
& Session("Inloggningsnamn") & "', '" & strMessage & "', '" & Now & "')"
minCon.Execute strSQL
Call dbClose()
End If
%>
Chatta