Dim actQuery As String = "UPDATE aspnet_users SET LastChatID=@LASTCHATID,LastChatActivity=GETDATE() WHERE Username=@USERNAME"
Dim cmdUpdate As SqlCommand = New SqlCommand(actQuery, conn)
            
Dim paramLCID As New SqlParameter("@LASTCHATID", Data.SqlDbType.Int)
paramLCID.Value = Request.QueryString("chat")
cmdUpdate.Parameters.Add(paramLCID)
            
Dim paramUN As New SqlParameter("@USERNAME", Data.SqlDbType.NVarChar)
paramUN.Value = Request.Form("name")
cmdUpdate.Parameters.Add(paramUN)
            
cmdUpdate.ExecuteNonQuery()