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